remove hascallstack from internal functions

Author: L0neGamer

containers/src/Data/IntMap/Internal.hs

@@ -2389,11 +2389,7 @@ kvToTuple :: KeyValue a -> (Key, a)
 kvToTuple (KeyValue k x) = (k, x)
 {-# INLINE kvToTuple #-}
 
-#if __GLASGOW_HASKELL__ >= 800
-lookupMinSure :: HasCallStack => IntMap a -> KeyValue a
-#else
 lookupMinSure :: IntMap a -> KeyValue a
-#endif
 lookupMinSure (Tip k v)   = KeyValue k v
 lookupMinSure (Bin _ l _) = lookupMinSure l
 lookupMinSure Nil         = error "lookupMinSure Nil"
@@ -2418,11 +2414,7 @@ findMin t
   | Just r <- lookupMin t = r
   | otherwise = error "findMin: empty map has no minimal element"
 
-#if __GLASGOW_HASKELL__ >= 800
-lookupMaxSure :: HasCallStack => IntMap a -> KeyValue a
-#else
 lookupMaxSure :: IntMap a -> KeyValue a
-#endif
 lookupMaxSure (Tip k v)   = KeyValue k v
 lookupMaxSure (Bin _ _ r) = lookupMaxSure r
 lookupMaxSure Nil         = error "lookupMaxSure Nil"