Strict.alterFEager: Fix strictness

Fixes #383.
haskell-unordered-containers · Mar 20, 2022 · 546b141 · 546b141
1 parent c79685a
commit 546b141
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/HashMap/Internal/Strict.hs b/Data/HashMap/Internal/Strict.hs
@@ -401,13 +401,13 @@ alterFEager f !k !m = (<$> f mv) $ \fres ->
 
     ------------------------------
     -- Update value
-    Just v' -> case lookupRes of
+    Just !v' -> case lookupRes of
 
       -- Key did not exist before, insert v' under a new key
       Absent -> insertNewKey h k v' m
 
       -- Key existed before, no hash collision
-      Present v collPos -> v' `seq`
+      Present v collPos ->
         if v `ptrEq` v'
         -- If the value is identical, no-op
         then m