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)