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