We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5249e70 commit 88209acCopy full SHA for 88209ac
Data/HashMap/Internal.hs
@@ -1805,7 +1805,8 @@ Maybe don't force the first !_?!
1805
Or maybe this helps avoid more evaluations later on? (Check Cmm)
1806
-}
1807
go !_s Empty !_ = Empty
1808
- go s t1@(Leaf h1 (L k1 _)) t2 = lookupCont (\_ -> t1) (\_ _ -> Empty) h1 k1 s t2
+ go s t1@(Leaf h1 (L k1 _)) t2
1809
+ = lookupCont (\_ -> t1) (\_ _ -> Empty) h1 k1 s t2
1810
go _ t1 Empty = t1
1811
go s t1 (Leaf h2 (L k2 _)) = delete'' h2 k2 s t1
1812
0 commit comments