Muse reader: remove redundant bracket
commit9b715d0cf2bd414b9574d6b5688ca760a042f933
authorAlexander Krotov <ilabdsf@gmail.com>
dateFri 5 Oct 2018, 19:54 (8 years ago)
parent6304720
src/Text/Pandoc/Readers/Muse.hs+1−1
@@ -69,7 +69,7 @@ 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 <- mapLeft (PandocParsecError $ unpack input) `liftM` runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
7373 case res of
7474 Left e -> throwError e
7575 Right d -> return d