@@ -269,7 +269,7 @@ invalidIndex label i =
269269-- /Pre-release/
270270{-# INLINE putIndex #-}
271271putIndex :: MonadIO m => Array a -> Int -> a -> m ()
272−putIndex arr@(Array {..}) i x =
272+putIndex arr@Array {..} i x =
273273 if i >= 0 && i < arrLen
274274 then putIndexUnsafe arr i x
275275 else invalidIndex "putIndex" i
@@ -297,7 +297,7 @@ modifyIndexUnsafe Array {..} i f = do
297297--
298298-- /Pre-release/
299299modifyIndex :: MonadIO m => Array a -> Int -> (a -> (a, b)) -> m b
300−modifyIndex arr@(Array {..}) i f = do
300+modifyIndex arr@Array {..} i f = do
301301 if i >= 0 && i < arrLen
302302 then modifyIndexUnsafe arr i f
303303 else invalidIndex "modifyIndex" i
@@ -380,7 +380,7 @@ snocWithRealloc sizer arr x = do
380380-- /Pre-release/
381381{-# INLINE snocWith #-}
382382snocWith :: MonadIO m => (Int -> Int) -> Array a -> a -> m (Array a)
383−snocWith sizer arr@(Array {..}) x = do
383+snocWith sizer arr@Array {..} x = do
384384 if arrStart + arrLen < arrTrueLen
385385 then snocUnsafe arr x
386386 else snocWithRealloc sizer arr x
@@ -425,7 +425,7 @@ getIndexUnsafe Array {..} n =
425425--
426426{-# INLINE getIndex #-}
427427getIndex :: MonadIO m => Array a -> Int -> m a
428−getIndex arr@(Array {..}) i =
428+getIndex arr@Array {..} i =
429429 if i >= 0 && i < arrLen
430430 then getIndexUnsafe arr i
431431 else invalidIndex "getIndex" i
@@ -449,7 +449,7 @@ getSliceUnsafe
449449 -> Int -- ^ length of the slice
450450 -> Array a
451451 -> Array a
452−getSliceUnsafe index len arr@(Array {..}) =
452+getSliceUnsafe index len arr@Array {..} =
453453 assert (index >= 0 && len >= 0 && index + len <= arrLen)
454454 $ arr {arrStart = arrStart + index, arrLen = len}
455455
@@ -464,7 +464,7 @@ getSlice
464464 -> Int -- ^ length of the slice
465465 -> Array a
466466 -> Array a
467−getSlice index len arr@(Array{..}) =
467+getSlice index len arr@Array{..} =
468468 if index >= 0 && len >= 0 && index + len <= arrLen
469469 then arr {arrStart = arrStart + index, arrLen = len}
470470 else error
@@ -480,7 +480,7 @@ getSlice index len arr@(Array{..}) =
480480-- /Pre-release/
481481{-# INLINE toList #-}
482482toList :: MonadIO m => Array a -> m [a]
483−toList arr@(Array {..}) = mapM (getIndexUnsafe arr) [0 .. (arrLen - 1)]
483+toList arr@Array{..} = mapM (getIndexUnsafe arr) [0 .. (arrLen - 1)]
484484
485485-- | Use the 'read' unfold instead.
486486--
@@ -489,12 +489,12 @@ toList arr@(Array {..}) = mapM (getIndexUnsafe arr) [0 .. (arrLen - 1)]
489489-- We can try this if the unfold has any performance issues.
490490{-# INLINE_NORMAL toStreamD #-}
491491toStreamD :: MonadIO m => Array a -> D.Stream m a
492−toStreamD arr@(Array {..}) =
492+toStreamD arr@Array{..} =
493493 D.mapM (getIndexUnsafe arr) $ D.enumerateFromToIntegral 0 (arrLen - 1)
494494
495495{-# INLINE toStreamK #-}
496496toStreamK :: MonadIO m => Array a -> K.Stream m a
497−toStreamK arr@(Array {..}) = K.unfoldrM step 0
497+toStreamK arr@Array{..} = K.unfoldrM step 0
498498
499499 where
500500