Revert "Parsing.General: make manyChar1, etc. more strict."

This reverts commit c1ab48874c.

Mistake in measurement.
This commit is contained in:
John MacFarlane 2022-03-31 23:45:28 -07:00
parent c1ab48874c
commit 98ff548c5e

View file

@ -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)