@@ -132,7 +132,7 @@ module Streamly.Mem.Array
132132 , transformWith
133133
134134 -- * Folding Arrays
135− , foldWith
135+ -- , foldWith
136136 , foldArray
137137 )
138138where
@@ -486,6 +486,6 @@ foldArray f arr = FL.foldl' f (A.read arr)
486486-- | Fold an array using a stream fold operation.
487487--
488488-- @since 0.7.0
489−{-# INLINE foldWith #-}
490−foldWith :: (MonadIO m, Storable a) => (SerialT m a -> m b) -> Array a -> m b
491−foldWith f arr = f (A.read arr)
489+{-# INLINE _foldWith #-}
490+_foldWith :: (MonadIO m, Storable a) => (SerialT m a -> m b) -> Array a -> m b
491+_foldWith f arr = f (A.read arr)