Fix strictness bugs in fromDistinctAscList and fromDistinctDescList

haskell · Mar 28, 2024 · 15c6092 · 15c6092
1 parent 0068399
commit 15c6092
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/containers/src/Data/Map/Strict/Internal.hs b/containers/src/Data/Map/Strict/Internal.hs
@@ -1762,7 +1762,7 @@ fromDistinctAscList = fromDistinctAscList_linkAll . Foldable.foldl' next (State0
   where
     next :: FromDistinctMonoState k a -> (k,a) -> FromDistinctMonoState k a
     next (State0 stk) (!kx, !x) = fromDistinctAscList_linkTop (Bin 1 kx x Tip Tip) stk
-    next (State1 l stk) (kx, x) = State0 (Push kx x l stk)
+    next (State1 l stk) (!kx, !x) = State0 (Push kx x l stk)
 {-# INLINE fromDistinctAscList #-}  -- INLINE for fusion
 
 -- | \(O(n)\). Build a map from a descending list of distinct elements in linear time.
@@ -1781,5 +1781,5 @@ fromDistinctDescList = fromDistinctDescList_linkAll . Foldable.foldl' next (Stat
   where
     next :: FromDistinctMonoState k a -> (k,a) -> FromDistinctMonoState k a
     next (State0 stk) (!kx, !x) = fromDistinctDescList_linkTop (Bin 1 kx x Tip Tip) stk
-    next (State1 r stk) (kx, x) = State0 (Push kx x r stk)
+    next (State1 r stk) (!kx, !x) = State0 (Push kx x r stk)
 {-# INLINE fromDistinctDescList #-}  -- INLINE for fusion