diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2019-12-19 20:26:55 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2019-12-19 20:39:29 +0100 |
| commit | b06124e43a9ac82a2cf86697e386f92da7a8c9d8 (patch) | |
| tree | 1b5aaa0e6d34b37d2629bc10de08442ea1fc20c1 /src/Text/Pandoc/Readers/Org.hs | |
| parent | 0a3cc7260cbdbe41596d8c0631acc05cc0fd8f50 (diff) | |
| download | pandoc-b06124e43a9ac82a2cf86697e386f92da7a8c9d8.tar.gz | |
Org reader: report errors properly
Errors during parsing are now returned in full and no longer replaced by
a custom message.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs index 99ece152c..d5d2c6aba 100644 --- a/src/Text/Pandoc/Readers/Org.hs +++ b/src/Text/Pandoc/Readers/Org.hs @@ -18,7 +18,6 @@ import Text.Pandoc.Readers.Org.Parsing (OrgParser, readWithM) import Text.Pandoc.Class (PandocMonad) import Text.Pandoc.Definition -import Text.Pandoc.Error import Text.Pandoc.Options import Text.Pandoc.Parsing (reportLogMessages) import Text.Pandoc.Shared (crFilter) @@ -39,7 +38,7 @@ readOrg opts s = do (crFilter s <> "\n\n") case parsed of Right result -> return result - Left _ -> throwError $ PandocParseError "problem parsing org" + Left e -> throwError e -- -- Parser |