Add bangs in hashWithSalt and A.foldl'_

Author: sjakobi

Data/HashMap/Internal.hs

@@ -559,7 +559,7 @@ instance (Hashable k, Hashable v) => Hashable (HashMap k v) where
     hashWithSalt salt hm = go salt hm
       where
         go :: Int -> HashMap k v -> Int
-        go s Empty = s
+        go !s Empty = s
         go s (BitmapIndexed _ a) = A.foldl' go s a
         go s (Leaf h (L _ v))
           = s `H.hashWithSalt` h `H.hashWithSalt` v

Data/HashMap/Internal/Array.hs

@@ -382,7 +382,7 @@ unsafeUpdateM ary idx b =
 foldl' :: (b -> a -> b) -> b -> Array a -> b
 foldl' f = \ z0 ary0 -> foldl'_ ary0 (length ary0) 0 z0
   where
-    foldl'_ ary n i !z
+    foldl'_ !ary n i !z
         | i >= n = z
         | otherwise
         = case index# ary i of