Add comments

haskell-unordered-containers · Apr 25, 2022 · 7617553 · 7617553
1 parent f13f246
commit 7617553
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Data/HashMap/Internal.hs b/Data/HashMap/Internal.hs
@@ -2311,8 +2311,9 @@ updateOrConcatWithKey :: Eq k => (k -> v -> v -> (# v #)) -> A.Array (Leaf k v)
 updateOrConcatWithKey f ary1 ary2 = A.run $ do
  let n1 = A.length ary1
  let n2 = A.length ary2
+ -- initialize output array with first element of ary1
  mary <- A.new (n1 + n2) (A.index ary1 0)
- -- copy over all elements from ary1
+ -- copy over remaining elements from ary1
  A.copy ary1 1 mary 1 (n1-1)
  -- append or update all elements from ary2
  let go !iEnd !i2 !iMut