From 9e9bb0ce4c803486a724b10ad1bc3a76770b5a9f Mon Sep 17 00:00:00 2001
From: michaelt <what_is_it_to_do_anything@yahoo.com>
Date: Sun, 26 Jan 2014 00:35:48 -0500
Subject: lensification under way

---
 Pipes/Text/Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pipes/Text')

diff --git a/Pipes/Text/Parse.hs b/Pipes/Text/Parse.hs
index 9cabaa6..317f85d 100644
--- a/Pipes/Text/Parse.hs
+++ b/Pipes/Text/Parse.hs
@@ -41,7 +41,7 @@ nextChar = go
                 Just (c, txt') -> return (Right (c, yield txt' >> p'))
 {-# INLINABLE nextChar #-}
 
-{-| Draw one 'Char' from the underlying 'Producer', returning 'Left' if the
+{-| Draw one 'Char' from the underlying 'Producer', returning 'Nothing' if the
     'Producer' is empty
 -}
 drawChar :: (Monad m) => StateT (Producer Text m r) m (Maybe Char)
-- 
cgit v1.2.3