@@ -75,11 +75,11 @@ module Streamly.Internal.FileSystem.File
7575 , fromChunks
7676
7777 -- ** Append To File
78− , append
79− , appendWith
78+ , writeAppend
79+ , writeAppendWith
8080 -- , appendShared
81− , appendArray
82− , appendChunks
81+ , writeAppendArray
82+ , writeAppendChunks
8383
8484 -- * Deprecated
8585 , readWithBufferOf
@@ -211,9 +211,9 @@ putChunk file arr = SIO.withFile file WriteMode (`FH.putChunk` arr)
211211--
212212-- /Pre-release/
213213--
214−{-# INLINABLE appendArray #-}
215−appendArray :: FilePath -> Array a -> IO ()
216−appendArray file arr = SIO.withFile file AppendMode (`FH.putChunk` arr)
214+{-# INLINABLE writeAppendArray #-}
215+writeAppendArray :: FilePath -> Array a -> IO ()
216+writeAppendArray file arr = SIO.withFile file AppendMode (`FH.putChunk` arr)
217217
218218-------------------------------------------------------------------------------
219219-- Stream of Arrays IO
@@ -487,10 +487,10 @@ write = writeWith defaultChunkSize
487487--
488488-- /Pre-release/
489489--
490−{-# INLINE appendChunks #-}
491−appendChunks :: (MonadIO m, MonadCatch m)
490+{-# INLINE writeAppendChunks #-}
491+writeAppendChunks :: (MonadIO m, MonadCatch m)
492492 => FilePath -> Stream m (Array a) -> m ()
493−appendChunks = fromChunksMode AppendMode
493+writeAppendChunks = fromChunksMode AppendMode
494494
495495-- | Like 'append' but provides control over the write buffer. Output will
496496-- be written to the IO device as soon as we collect the specified number of
@@ -498,10 +498,10 @@ appendChunks = fromChunksMode AppendMode
498498--
499499-- /Pre-release/
500500--
501−{-# INLINE appendWith #-}
502−appendWith :: (MonadIO m, MonadCatch m)
501+{-# INLINE writeAppendWith #-}
502+writeAppendWith :: (MonadIO m, MonadCatch m)
503503 => 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
505505
506506-- | Append a byte stream to a file. Combines the bytes in chunks of size up to
507507-- '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
510510--
511511-- /Pre-release/
512512--
513−{-# INLINE append #-}
514−append :: (MonadIO m, MonadCatch m) => FilePath -> Stream m Word8 -> m ()
515−append = appendWith defaultChunkSize
513+{-# INLINE writeAppend #-}
514+writeAppend :: (MonadIO m, MonadCatch m) => FilePath -> Stream m Word8 -> m ()
515+writeAppend = writeAppendWith defaultChunkSize
516516
517517{-
518518-- | Like 'append' but the file is not locked for exclusive writes.