Skip to content

Commit 88209ac

Browse files
committed
Formatting
1 parent 5249e70 commit 88209ac

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

Data/HashMap/Internal.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1805,7 +1805,8 @@ Maybe don't force the first !_?!
18051805
Or maybe this helps avoid more evaluations later on? (Check Cmm)
18061806
-}
18071807
go !_s Empty !_ = Empty
1808-
go s t1@(Leaf h1 (L k1 _)) t2 = lookupCont (\_ -> t1) (\_ _ -> Empty) h1 k1 s t2
1808+
go s t1@(Leaf h1 (L k1 _)) t2
1809+
= lookupCont (\_ -> t1) (\_ _ -> Empty) h1 k1 s t2
18091810
go _ t1 Empty = t1
18101811
go s t1 (Leaf h2 (L k2 _)) = delete'' h2 k2 s t1
18111812

0 commit comments

Comments
 (0)