hasufell/streamly-filesystem
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add copyLBS

Browse Source
This commit is contained in:
Julian Ospald 2020-01-29 21:02:33 +01:00
parent 6d59131353
commit 126f23659e
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Streamly/External/FileSystem/Handle/Posix.hs vendored
View File

@ -19,6 +19,7 @@ module Streamly.External.FileSystem.Handle.Posix
-- * File writing -- * File writing
, copyFileHandle , copyFileHandle
, copyFileStream , copyFileStream
, copyLBS
-- * Directory listing -- * Directory listing
, unfoldDirContents , unfoldDirContents
, dirContentsStream , dirContentsStream
@ -51,6 +52,8 @@ import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Lazy.Internal as BSLI import qualified Data.ByteString.Lazy.Internal as BSLI
import qualified Streamly.External.ByteString as Strict import qualified Streamly.External.ByteString as Strict
import qualified Streamly.External.ByteString.Lazy
as Lazy
import qualified Streamly.FileSystem.Handle as FH import qualified Streamly.FileSystem.Handle as FH
import qualified Streamly.Internal.Data.Stream.StreamD.Type import qualified Streamly.Internal.Data.Stream.StreamD.Type
as D as D
@ -79,6 +82,7 @@ readFileLBS handle' = fromChunks (readFileStream handle')
-- --
-- The handle is closed automatically, when the stream exits normally, -- The handle is closed automatically, when the stream exits normally,
-- aborts or gets garbage collected. -- aborts or gets garbage collected.
-- The stream must not be used after the handle is closed.
readFileStream :: (MonadCatch m, MonadAsync m) readFileStream :: (MonadCatch m, MonadAsync m)
=> Handle => Handle
-> SerialT m (Array Word8) -> SerialT m (Array Word8)
@ -106,6 +110,16 @@ copyFileStream stream handle' =
$ S.fold (FH.writeChunks handle') stream $ S.fold (FH.writeChunks handle') stream
-- | Like 'copyFileStream', except with a lazy bytestring.
--
-- The handle is closed automatically after the bytestring is copied.
copyLBS :: (MonadCatch m, MonadAsync m, MonadMask m)
=> L.ByteString -- ^ lazy bytestring to copy
-> Handle -- ^ file handle to copy to, must be writable
-> m ()
copyLBS lbs = copyFileStream (Lazy.toChunks lbs)
-- | Create an 'Unfold' of directory contents. -- | Create an 'Unfold' of directory contents.
unfoldDirContents :: MonadIO m => Unfold m DirStream (DirType, RawFilePath) unfoldDirContents :: MonadIO m => Unfold m DirStream (DirType, RawFilePath)
unfoldDirContents = Unfold step return unfoldDirContents = Unfold step return
@ -124,6 +138,7 @@ unfoldDirContents = Unfold step return
-- --
-- The DirStream is closed automatically, when the streamly stream exits -- The DirStream is closed automatically, when the streamly stream exits
-- normally, aborts or gets garbage collected. -- normally, aborts or gets garbage collected.
-- The stream must not be used after the dirstream is closed.
dirContentsStream :: (MonadCatch m, MonadAsync m, MonadMask m) dirContentsStream :: (MonadCatch m, MonadAsync m, MonadMask m)
=> DirStream => DirStream
-> SerialT m (DirType, RawFilePath) -> SerialT m (DirType, RawFilePath)