@@ -1605,7 +1605,7 @@ import Control.Monad.Trans.Class (MonadTrans (lift))
16051605-- import qualified Streaming.Prelude as SG
16061606--
16071607-- -- | streaming to streamly
1608−-- fromStreaming :: (IsStream t, Monad m) => SG.Stream (SG.Of a) m r -> t m a
1608+-- fromStreaming :: (IsStream t, MonadAsync m) => SG.Stream (SG.Of a) m r -> t m a
16091609-- fromStreaming = S.unfoldrM SG.uncons
16101610--
16111611-- -- | streamly to streaming