@@ -570,12 +570,12 @@ asCStringUnsafe arr act = do
570570--
571571-- /Pre-release/
572572{-# INLINE fold #-}
573−fold :: forall m a b. (MonadIO m, Storable a) => Fold m a b -> Array a -> m b
573+fold :: forall m a b. (Monad m, Storable a) => Fold m a b -> Array a -> m b
574574fold f arr = P.fold f (getSerialT (A.toStream arr))
575575
576576-- | Fold an array using a stream fold operation.
577577--
578578-- /Pre-release/
579579{-# INLINE streamFold #-}
580−streamFold :: (MonadIO m, Storable a) => (SerialT m a -> m b) -> Array a -> m b
580+streamFold :: (Monad m, Storable a) => (SerialT m a -> m b) -> Array a -> m b
581581streamFold f arr = f (A.toStream arr)