diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-03-31 23:45:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-03-31 23:45:28 -0700 |
| commit | 98ff548c5e2da1d32925097739ac66ba80dd6712 (patch) | |
| tree | 2e702d7908db6eea3827fa09689f8b72038fb47b /src | |
| parent | c1ab48874c04142988505ca5c5caa6626bb68211 (diff) | |
Revert "Parsing.General: make manyChar1, etc. more strict."
This reverts commit c1ab48874c04142988505ca5c5caa6626bb68211.
Mistake in measurement.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Parsing/General.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Parsing/General.hs b/src/Text/Pandoc/Parsing/General.hs index 024038f55..c03bda117 100644 --- a/src/Text/Pandoc/Parsing/General.hs +++ b/src/Text/Pandoc/Parsing/General.hs @@ -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) |