Fix

Author: adithyaov

core/src/Streamly/Internal/Data/MutArray/Generic.hs

@@ -422,7 +422,7 @@ unsafeSnoc, snocUnsafe :: MonadIO m => MutArray a -> a -> m (MutArray a)
 unsafeSnoc arr@MutArray {..} a = do
     assert (arrEnd < arrCapacity) (return ())
     let arr1 = arr {arrEnd = arrEnd + 1}
-    unsafePutIndex arrEnd arr1 a
+    unsafePutIndex (length arr) arr1 a
     return arr1
 
 -- NOINLINE to move it out of the way and not pollute the instruction cache.
@@ -784,7 +784,7 @@ chunksOf n (D.Stream step state) =
                 putIndexUnsafeWith end contents x
                 let end1 = end + 1
                 return $
-                    if start + end1 >= bound
+                    if end1 >= bound
                     then D.Skip
                             (GroupYield
                                 contents start end1 bound (GroupStart s))