From 98ff548c5e2da1d32925097739ac66ba80dd6712 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 31 Mar 2022 23:45:28 -0700
Subject: [PATCH] Revert "Parsing.General: make manyChar1, etc. more strict."
This reverts commit c1ab48874c04142988505ca5c5caa6626bb68211.
Mistake in measurement.
---
src/Text/Pandoc/Parsing/General.hs | 7 +++----
1 file 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)