From 4d9ccb163ed6a4a4a3eeb6d225feec28205cb7b4 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 9 Oct 2018 18:26:50 +0300
Subject: Get rid of mapLeft in Muse reader

---
 src/Text/Pandoc/Readers/Muse.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Text/Pandoc/Readers/Muse.hs')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 409548cb3..6a1d69506 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -60,7 +60,7 @@ import Text.Pandoc.Error (PandocError (PandocParsecError))
 import Text.Pandoc.Logging
 import Text.Pandoc.Options
 import Text.Pandoc.Parsing hiding (F, enclosed)
-import Text.Pandoc.Shared (crFilter, underlineSpan, mapLeft)
+import Text.Pandoc.Shared (crFilter, underlineSpan)
 
 -- | Read Muse from an input string and return a Pandoc document.
 readMuse :: PandocMonad m
@@ -69,9 +69,9 @@ readMuse :: PandocMonad m
          -> m Pandoc
 readMuse opts s = do
   let input = crFilter s
-  res <- mapLeft (PandocParsecError $ unpack input) `liftM` runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
+  res <- runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
   case res of
-       Left e  -> throwError e
+       Left e  -> throwError $ PandocParsecError (unpack input) e
        Right d -> return d
 
 type F = Future MuseState
-- 
cgit v1.2.3