@@ -75,11 +75,11 @@ module Streamly.Internal.FileSystem.File
75 , fromChunks
75 , fromChunks
77 -- ** Append To File
77 -- ** Append To File
78− , append
78+ , writeAppend
79− , appendWith
79+ , writeAppendWith
80 -- , appendShared
80 -- , appendShared
81− , appendArray
81+ , writeAppendArray
82− , appendChunks
82+ , writeAppendChunks
84 -- * Deprecated
84 -- * Deprecated
85 , readWithBufferOf
85 , readWithBufferOf
@@ -211,9 +211,9 @@ putChunk file arr = SIO.withFile file WriteMode (`FH.putChunk` arr)
212-- /Pre-release/
212-- /Pre-release/
214−{-# INLINABLE appendArray #-}
214+{-# INLINABLE writeAppendArray #-}
215−appendArray :: FilePath -> Array a -> IO ()
215+writeAppendArray :: FilePath -> Array a -> IO ()
216−appendArray file arr = SIO.withFile file AppendMode (`FH.putChunk` arr)
216+writeAppendArray file arr = SIO.withFile file AppendMode (`FH.putChunk` arr)
218-------------------------------------------------------------------------------
218-------------------------------------------------------------------------------
219-- Stream of Arrays IO
219-- Stream of Arrays IO
@@ -487,10 +487,10 @@ write = writeWith defaultChunkSize
488-- /Pre-release/
488-- /Pre-release/
490−{-# INLINE appendChunks #-}
490+{-# INLINE writeAppendChunks #-}
491−appendChunks :: (MonadIO m, MonadCatch m)
491+writeAppendChunks :: (MonadIO m, MonadCatch m)
492 => FilePath -> Stream m (Array a) -> m ()
492 => FilePath -> Stream m (Array a) -> m ()
493−appendChunks = fromChunksMode AppendMode
493+writeAppendChunks = fromChunksMode AppendMode
495-- | Like 'append' but provides control over the write buffer. Output will
495-- | Like 'append' but provides control over the write buffer. Output will
496-- be written to the IO device as soon as we collect the specified number of
496-- be written to the IO device as soon as we collect the specified number of
@@ -498,10 +498,10 @@ appendChunks = fromChunksMode AppendMode
499-- /Pre-release/
499-- /Pre-release/
501−{-# INLINE appendWith #-}
501+{-# INLINE writeAppendWith #-}
502−appendWith :: (MonadIO m, MonadCatch m)
502+writeAppendWith :: (MonadIO m, MonadCatch m)
503 => Int -> FilePath -> Stream m Word8 -> m ()
503 => Int -> FilePath -> Stream m Word8 -> m ()
504−appendWith n file xs = appendChunks file $ S.chunksOf n xs
504+writeAppendWith n file xs = writeAppendChunks file $ S.chunksOf n xs
506-- | Append a byte stream to a file. Combines the bytes in chunks of size up to
506-- | Append a byte stream to a file. Combines the bytes in chunks of size up to
507-- 'A.defaultChunkSize' before writing. If the file exists then the new data
507-- 'A.defaultChunkSize' before writing. If the file exists then the new data
@@ -510,9 +510,9 @@ appendWith n file xs = appendChunks file $ S.chunksOf n xs
511-- /Pre-release/
511-- /Pre-release/
513−{-# INLINE append #-}
513+{-# INLINE writeAppend #-}
514−append :: (MonadIO m, MonadCatch m) => FilePath -> Stream m Word8 -> m ()
514+writeAppend :: (MonadIO m, MonadCatch m) => FilePath -> Stream m Word8 -> m ()
515−append = appendWith defaultChunkSize
515+writeAppend = writeAppendWith defaultChunkSize
518-- | Like 'append' but the file is not locked for exclusive writes.
518-- | Like 'append' but the file is not locked for exclusive writes.