]> git.immae.eu Git - github/fretlink/text-pipes.git/commitdiff
readme
authormichaelt <what_is_it_to_do_anything@yahoo.com>
Sun, 16 Feb 2014 16:49:22 +0000 (11:49 -0500)
committermichaelt <what_is_it_to_do_anything@yahoo.com>
Sun, 16 Feb 2014 16:49:22 +0000 (11:49 -0500)
Pipes/Text/IO.hs
README.md

index 43e636e798d703426285b51e2d481b83d3a2e37c..92500c3743865ed206c4f085944ee203d1c2b124 100644 (file)
@@ -60,7 +60,7 @@ import Prelude hiding (readFile, writeFile)
     but uses the system encoding and has other nice @Data.Text.IO@ features
 -}
 
-fromHandle :: MonadIO m => IO.Handle -> Producer' Text m ()
+fromHandle :: MonadIO m => IO.Handle -> Producer Text m ()
 fromHandle h =  go where
       go = do txt <- liftIO (T.hGetChunk h)
               if T.null txt then return ()
@@ -69,7 +69,7 @@ fromHandle h =  go where
 {-# INLINABLE fromHandle#-}
 
 -- | Stream text from 'stdin'
-stdin :: MonadIO m => Producer' Text m ()
+stdin :: MonadIO m => Producer Text m ()
 stdin = fromHandle IO.stdin
 {-# INLINE stdin #-}
 
@@ -80,7 +80,7 @@ stdin = fromHandle IO.stdin
 MAIN = PUTSTRLN "HELLO WORLD"
 -}
 
-readFile :: MonadSafe m => FilePath -> Producer' Text m ()
+readFile :: MonadSafe m => FilePath -> Producer Text m ()
 readFile file = Safe.withFile file IO.ReadMode fromHandle
 {-# INLINE readFile #-}
 
index 3bb067ea8c8bcb04210c17f165edea657566e860..ff2bf1ef1627c103a2fe0b0d98ddfcd8248637c6 100644 (file)
--- a/README.md
+++ b/README.md
@@ -1,6 +1,10 @@
 pipes-text
 ==========
 
-This package follows the rule `pipes-text : pipes-bytestring :: text : bytestring` It has three modules, `Pipes.Text` , `Pipes.Text.Encoding` and `Pipes.Text.IO`; the division has more or less the significance it has in the `text` library. 
+This package follows the rule:
+
+    `pipes-text : pipes-bytestring :: text : bytestring` 
+
+It has three modules, `Pipes.Text` , `Pipes.Text.Encoding` and `Pipes.Text.IO`; the division has more or less the significance it has in the `text` library. 
 
 Note that the module `Pipes.Text.IO` uses version 0.11.3 or later of the `text` library. (It thus works with the version of `text` that came with the 2013 Haskell Platform. To use an older `text`, install with the flag `-fnoio` 
\ No newline at end of file