From b28660f6df52c0da5995318765c37cec65f19225 Mon Sep 17 00:00:00 2001
From: michaelt <what_is_it_to_do_anything@yahoo.com>
Date: Tue, 11 Nov 2014 17:52:47 -0500
Subject: travis

---
 Pipes/Text.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Pipes')

diff --git a/Pipes/Text.hs b/Pipes/Text.hs
index 0f2e31d..f71f17f 100644
--- a/Pipes/Text.hs
+++ b/Pipes/Text.hs
@@ -148,7 +148,7 @@ a ^. lens = getConstant (lens Constant a)
 -- | Apply a transformation to each 'Char' in the stream
 
 -- >>> let margaret =  ["Margaret, are you grieving\nOver Golde","ngrove unleaving?":: Text]
--- >>> TL.putStrLn $ toLazy $ each margaret >-> map Data.Char.toUpper
+-- >>> TL.putStrLn . toLazy $ each margaret >-> map Data.Char.toUpper
 -- MARGARET, ARE YOU GRIEVING
 -- OVER GOLDENGROVE UNLEAVING?
 map :: (Monad m) => (Char -> Char) -> Pipe Text Text m r
@@ -168,7 +168,7 @@ take :: (Monad m, Integral a) => a -> Pipe Text Text m ()
 take n0 = go n0 where
     go n
         | n <= 0    = return ()
-        | otherwise = do
+        | otherwise = do 
             txt <- await
             let len = fromIntegral (T.length txt)
             if (len > n)
-- 
cgit v1.2.3