aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-05 19:54:01 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-05 20:02:45 +0300
commit9b715d0cf2bd414b9574d6b5688ca760a042f933 (patch)
tree9ba8ce4ca67dc34b961b903eca559f781f28d343 /src/Text/Pandoc
parent6304720d8d7906d698018203e1c743683f0234f3 (diff)
downloadpandoc-9b715d0cf2bd414b9574d6b5688ca760a042f933.tar.gz
Muse reader: remove redundant bracket
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 4d9013cce..9c699651e 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -69,7 +69,7 @@ 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 <- mapLeft (PandocParsecError $ unpack input) `liftM` runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
case res of
Left e -> throwError e
Right d -> return d