potoki 0.10.3 → 0.10.4

raw patch · 2 files changed

+10/−1 lines, 2 files

Files

• library/Potoki/Transform.hs +9/−0
• potoki.cabal +1/−1

@@ -29,6 +29,7 @@   -- * File IO   deleteFile,   appendBytesToFile,+  writeTextToFile,   -- * Debugging   traceWithCounter, )@@ -47,6 +48,7 @@ import qualified Data.ByteString.Builder as E import qualified Data.ByteString.Lazy as F import qualified Data.ByteString as J+import qualified Data.Text.IO as Q import qualified Data.Vector as P import qualified System.Directory as I import qualified Control.Concurrent.Chan.Unagi.Bounded as B@@ -165,6 +167,13 @@   try $    withFile path AppendMode $ \ handle ->    J.hPut handle bytes++{-# INLINABLE writeTextToFile #-}+writeTextToFile :: Transform (FilePath, Text) (Either IOException ())+writeTextToFile =+  mapInIO $ \ (path, text) ->+  try $ +  Q.writeFile path text  {-# INLINE distinctBy #-} distinctBy :: (Eq comparable, Hashable comparable) => (element -> comparable) -> Transform element element

@@ -1,7 +1,7 @@ name:   potoki version:-  0.10.3+  0.10.4 synopsis:   Simple streaming in IO description: