a little more documentation

1 files changed, 12 insertions, 1 deletions

diff --git a/Data/Text/Pipes.hs b/Data/Text/Pipes.hs
index e9b5488..f972d2d 100644
--- a/Data/Text/Pipes.hs
+++ b/Data/Text/Pipes.hs
@@ -205,7 +205,8 @@ stdin :: MonadIO m => Producer' Text m ()
 stdin = fromHandle IO.stdin
 {-# INLINABLE stdin #-}
 
--- | Convert a 'IO.Handle' into a byte stream using a default chunk size
+-- | Convert a 'IO.Handle' into a text stream using a chunk size 
+-- determined by the good sense of the text library. 
 fromHandle :: MonadIO m => IO.Handle -> Producer' Text m ()
 fromHandle h = go where
     go = do txt <- liftIO (T.hGetChunk h)
@@ -213,6 +214,16 @@ fromHandle h = go where
                                      go
 {-# INLINABLE fromHandle#-}
 
+{-| Stream text from a file using Pipes.Safe
+
+>>> runSafeT $ runEffect $ readFile "README.md" >-> map toUpper >-> hoist lift stdout
+TEXT-PIPES
+==========
+TEXT PIPES, SOMEHOW TO BE FUSED WITH `PIPES-TEXT`.
+...
+>>>
+-}
+
 readFile :: (MonadSafe m, Base m ~ IO) => FilePath -> Producer' Text m ()
 readFile file = Safe.withFile file IO.ReadMode fromHandle
 {-# INLINABLE readFile #-}