@@ -60,7 +60,7 @@ import Text.Pandoc.Error (PandocError (PandocParsecError))
6060import Text.Pandoc.Logging
6161import Text.Pandoc.Options
6262import Text.Pandoc.Parsing hiding (F, enclosed)
63−import Text.Pandoc.Shared (crFilter, underlineSpan, mapLeft)
63+import Text.Pandoc.Shared (crFilter, underlineSpan)
6464
6565-- | Read Muse from an input string and return a Pandoc document.
6666readMuse :: PandocMonad m
@@ -69,9 +69,9 @@ readMuse :: PandocMonad m
6969 -> m Pandoc
7070readMuse opts s = do
7171 let input = crFilter s
72− res <- mapLeft (PandocParsecError $ unpack input) `liftM` runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
72+ res <- runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
7373 case res of
74− Left e -> throwError e
74+ Left e -> throwError $ PandocParsecError (unpack input) e
7575 Right d -> return d
7676
7777type F = Future MuseState