diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-05 19:54:01 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-05 20:02:45 +0300 |
| commit | 9b715d0cf2bd414b9574d6b5688ca760a042f933 (patch) | |
| tree | 9ba8ce4ca67dc34b961b903eca559f781f28d343 /src/Text/Pandoc | |
| parent | 6304720d8d7906d698018203e1c743683f0234f3 (diff) | |
| download | pandoc-9b715d0cf2bd414b9574d6b5688ca760a042f933.tar.gz | |
Muse reader: remove redundant bracket
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
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 |