We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 1256cf3 commit b0210c8Copy full SHA for b0210c8
Data/HashMap/Internal/Array.hs
@@ -210,7 +210,7 @@ new_ n = new n undefinedElem
210
-- | When 'Exts.shrinkSmallMutableArray#' is available, the returned array is the same as the array given, as it is shrunk in place.
211
-- Otherwise a copy is made.
212
shrink :: MArray s a -> Int -> ST s (MArray s a)
213
-#if MIN_VERSION_GLASGOW_HASKELL(8, 10, 7, 0)
+#if __GLASGOW_HASKELL__ >= 810
214
shrink mary _n@(I# n#) =
215
CHECK_GT("shrink", _n, (0 :: Int))
216
CHECK_LE("shrink", _n, (lengthM mary))
0 commit comments