@@ -269,7 +269,7 @@ invalidIndex label i =
269-- /Pre-release/
269-- /Pre-release/
270{-# INLINE putIndex #-}
270{-# INLINE putIndex #-}
271putIndex :: MonadIO m => Array a -> Int -> a -> m ()
271putIndex :: MonadIO m => Array a -> Int -> a -> m ()
272−putIndex arr@(Array {..}) i x =
272+putIndex arr@Array {..} i x =
273 if i >= 0 && i < arrLen
273 if i >= 0 && i < arrLen
274 then putIndexUnsafe arr i x
274 then putIndexUnsafe arr i x
275 else invalidIndex "putIndex" i
275 else invalidIndex "putIndex" i
@@ -297,7 +297,7 @@ modifyIndexUnsafe Array {..} i f = do
298-- /Pre-release/
298-- /Pre-release/
299modifyIndex :: MonadIO m => Array a -> Int -> (a -> (a, b)) -> m b
299modifyIndex :: MonadIO m => Array a -> Int -> (a -> (a, b)) -> m b
300−modifyIndex arr@(Array {..}) i f = do
300+modifyIndex arr@Array {..} i f = do
301 if i >= 0 && i < arrLen
301 if i >= 0 && i < arrLen
302 then modifyIndexUnsafe arr i f
302 then modifyIndexUnsafe arr i f
303 else invalidIndex "modifyIndex" i
303 else invalidIndex "modifyIndex" i
@@ -380,7 +380,7 @@ snocWithRealloc sizer arr x = do
380-- /Pre-release/
380-- /Pre-release/
381{-# INLINE snocWith #-}
381{-# INLINE snocWith #-}
382snocWith :: MonadIO m => (Int -> Int) -> Array a -> a -> m (Array a)
382snocWith :: MonadIO m => (Int -> Int) -> Array a -> a -> m (Array a)
383−snocWith sizer arr@(Array {..}) x = do
383+snocWith sizer arr@Array {..} x = do
384 if arrStart + arrLen < arrTrueLen
384 if arrStart + arrLen < arrTrueLen
385 then snocUnsafe arr x
385 then snocUnsafe arr x
386 else snocWithRealloc sizer arr x
386 else snocWithRealloc sizer arr x
@@ -425,7 +425,7 @@ getIndexUnsafe Array {..} n =
426{-# INLINE getIndex #-}
426{-# INLINE getIndex #-}
427getIndex :: MonadIO m => Array a -> Int -> m a
427getIndex :: MonadIO m => Array a -> Int -> m a
428−getIndex arr@(Array {..}) i =
428+getIndex arr@Array {..} i =
429 if i >= 0 && i < arrLen
429 if i >= 0 && i < arrLen
430 then getIndexUnsafe arr i
430 then getIndexUnsafe arr i
431 else invalidIndex "getIndex" i
431 else invalidIndex "getIndex" i
@@ -449,7 +449,7 @@ getSliceUnsafe
449 -> Int -- ^ length of the slice
449 -> Int -- ^ length of the slice
450 -> Array a
450 -> Array a
451 -> Array a
451 -> Array a
452−getSliceUnsafe index len arr@(Array {..}) =
452+getSliceUnsafe index len arr@Array {..} =
453 assert (index >= 0 && len >= 0 && index + len <= arrLen)
453 assert (index >= 0 && len >= 0 && index + len <= arrLen)
454 $ arr {arrStart = arrStart + index, arrLen = len}
454 $ arr {arrStart = arrStart + index, arrLen = len}
@@ -464,7 +464,7 @@ getSlice
464 -> Int -- ^ length of the slice
464 -> Int -- ^ length of the slice
465 -> Array a
465 -> Array a
466 -> Array a
466 -> Array a
467−getSlice index len arr@(Array{..}) =
467+getSlice index len arr@Array{..} =
468 if index >= 0 && len >= 0 && index + len <= arrLen
468 if index >= 0 && len >= 0 && index + len <= arrLen
469 then arr {arrStart = arrStart + index, arrLen = len}
469 then arr {arrStart = arrStart + index, arrLen = len}
470 else error
470 else error
@@ -480,7 +480,7 @@ getSlice index len arr@(Array{..}) =
480-- /Pre-release/
480-- /Pre-release/
481{-# INLINE toList #-}
481{-# INLINE toList #-}
482toList :: MonadIO m => Array a -> m [a]
482toList :: 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)]
485-- | Use the 'read' unfold instead.
485-- | Use the 'read' unfold instead.
@@ -489,12 +489,12 @@ toList arr@(Array {..}) = mapM (getIndexUnsafe arr) [0 .. (arrLen - 1)]
489-- We can try this if the unfold has any performance issues.
489-- We can try this if the unfold has any performance issues.
490{-# INLINE_NORMAL toStreamD #-}
490{-# INLINE_NORMAL toStreamD #-}
491toStreamD :: MonadIO m => Array a -> D.Stream m a
491toStreamD :: MonadIO m => Array a -> D.Stream m a
492−toStreamD arr@(Array {..}) =
492+toStreamD arr@Array{..} =
493 D.mapM (getIndexUnsafe arr) $ D.enumerateFromToIntegral 0 (arrLen - 1)
493 D.mapM (getIndexUnsafe arr) $ D.enumerateFromToIntegral 0 (arrLen - 1)
495{-# INLINE toStreamK #-}
495{-# INLINE toStreamK #-}
496toStreamK :: MonadIO m => Array a -> K.Stream m a
496toStreamK :: MonadIO m => Array a -> K.Stream m a
497−toStreamK arr@(Array {..}) = K.unfoldrM step 0
497+toStreamK arr@Array{..} = K.unfoldrM step 0