module HaskellWorks.Data.Streams.ByteString.Lazy
  ( stream
  ) where

import Data.Word
import HaskellWorks.Data.Streams.Stream (Stream (..))

import qualified Data.ByteString.Lazy                 as LBS
import qualified HaskellWorks.Data.Streams.ByteString as BS

stream :: LBS.ByteString -> Stream Word8
stream :: ByteString -> Stream Word8
stream = [ByteString] -> Stream Word8
BS.streamChunks ([ByteString] -> Stream Word8)
-> (ByteString -> [ByteString]) -> ByteString -> Stream Word8
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> [ByteString]
LBS.toChunks