diff options
| author | michaelt <what_is_it_to_do_anything@yahoo.com> | 2014-01-26 00:35:48 -0500 |
|---|---|---|
| committer | michaelt <what_is_it_to_do_anything@yahoo.com> | 2014-01-26 00:35:48 -0500 |
| commit | 9e9bb0ce4c803486a724b10ad1bc3a76770b5a9f (patch) | |
| tree | e7c7a9bcc99b48bfc64fe051fbcb28f20d369c8d /Pipes/Text | |
| parent | 1677dc12093a9b128ba17085125e807c3e2b3d5a (diff) | |
| download | text-pipes-9e9bb0ce4c803486a724b10ad1bc3a76770b5a9f.tar.gz text-pipes-9e9bb0ce4c803486a724b10ad1bc3a76770b5a9f.tar.zst text-pipes-9e9bb0ce4c803486a724b10ad1bc3a76770b5a9f.zip | |
lensification under way
Diffstat (limited to 'Pipes/Text')
| -rw-r--r-- | Pipes/Text/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 41 | Just (c, txt') -> return (Right (c, yield txt' >> p')) | 41 | Just (c, txt') -> return (Right (c, yield txt' >> p')) |
| 42 | {-# INLINABLE nextChar #-} | 42 | {-# INLINABLE nextChar #-} |
| 43 | 43 | ||
| 44 | {-| Draw one 'Char' from the underlying 'Producer', returning 'Left' if the | 44 | {-| Draw one 'Char' from the underlying 'Producer', returning 'Nothing' if the |
| 45 | 'Producer' is empty | 45 | 'Producer' is empty |
| 46 | -} | 46 | -} |
| 47 | drawChar :: (Monad m) => StateT (Producer Text m r) m (Maybe Char) | 47 | drawChar :: (Monad m) => StateT (Producer Text m r) m (Maybe Char) |