module UnliftIO.Streams.ByteString ( lines ) where import Control.Monad.IO.Unlift (MonadUnliftIO, liftIO) import Data.ByteString (ByteString) import Prelude hiding (lines) import System.IO.Streams (InputStream) import qualified System.IO.Streams.ByteString as SB {-# INLINE lines #-} lines :: (MonadUnliftIO m) => InputStream ByteString -> m (InputStream ByteString) lines :: InputStream ByteString -> m (InputStream ByteString) lines = IO (InputStream ByteString) -> m (InputStream ByteString) forall (m :: * -> *) a. MonadIO m => IO a -> m a liftIO (IO (InputStream ByteString) -> m (InputStream ByteString)) -> (InputStream ByteString -> IO (InputStream ByteString)) -> InputStream ByteString -> m (InputStream ByteString) forall b c a. (b -> c) -> (a -> b) -> a -> c . InputStream ByteString -> IO (InputStream ByteString) SB.lines