File tree Expand file tree Collapse file tree 1 file changed +4
-8
lines changed Expand file tree Collapse file tree 1 file changed +4
-8
lines changed Original file line number Diff line number Diff line change @@ -881,14 +881,10 @@ insertKeyExists !collPos0 !h0 !k0 x0 !m0 = go collPos0 h0 k0 x0 0 m0
881
881
where
882
882
go ! _collPos ! h ! k x ! _s (Leaf _hy _kx)
883
883
= Leaf h (L k x)
884
- go collPos h k x s (BitmapIndexed b ary)
885
- | b .&. m == 0 =
886
- let ! ary' = A. insert ary i $ Leaf h (L k x)
887
- in bitmapIndexedOrFull (b .|. m) ary'
888
- | otherwise =
889
- let ! st = A. index ary i
890
- ! st' = go collPos h k x (nextShift s) st
891
- in BitmapIndexed b (A. update ary i st')
884
+ go collPos h k x s (BitmapIndexed b ary) =
885
+ let ! st = A. index ary i
886
+ ! st' = go collPos h k x (nextShift s) st
887
+ in BitmapIndexed b (A. update ary i st')
892
888
where m = mask h s
893
889
i = sparseIndex b m
894
890
go collPos h k x s (Full ary) =
You can’t perform that action at this time.
0 commit comments