Revert "Parsing.General: make manyChar1, etc. more strict."
This reverts commit c1ab48874c
.
Mistake in measurement.
This commit is contained in:
parent
c1ab48874c
commit
98ff548c5e
1 changed files with 3 additions and 4 deletions
|
@ -68,7 +68,6 @@ import Control.Monad
|
|||
, unless
|
||||
, void
|
||||
, when
|
||||
, (<$!>)
|
||||
)
|
||||
import Control.Monad.Except ( MonadError(throwError) )
|
||||
import Control.Monad.Identity ( Identity(..), MonadPlus(mzero) )
|
||||
|
@ -200,20 +199,20 @@ indentWith num = do
|
|||
manyChar :: Stream s m t
|
||||
=> ParserT s st m Char
|
||||
-> ParserT s st m Text
|
||||
manyChar p = T.pack <$!> many p
|
||||
manyChar = fmap T.pack . many
|
||||
|
||||
-- | Like @many1@, but packs its result.
|
||||
many1Char :: Stream s m t
|
||||
=> ParserT s st m Char
|
||||
-> ParserT s st m Text
|
||||
many1Char p = T.pack <$!> many1 p
|
||||
many1Char = fmap T.pack . many1
|
||||
|
||||
-- | Like @manyTill@, but packs its result.
|
||||
manyTillChar :: Stream s m t
|
||||
=> ParserT s st m Char
|
||||
-> ParserT s st m a
|
||||
-> ParserT s st m Text
|
||||
manyTillChar p end = T.pack <$!> manyTill p end
|
||||
manyTillChar p = fmap T.pack . manyTill p
|
||||
|
||||
-- | Like @manyTill@, but reads at least one item.
|
||||
many1Till :: (Show end, Stream s m t)
|
||||
|
|
Loading…
Add table
Reference in a new issue