From b06124e43a9ac82a2cf86697e386f92da7a8c9d8 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Thu, 19 Dec 2019 20:26:55 +0100 Subject: Org reader: report errors properly Errors during parsing are now returned in full and no longer replaced by a custom message. --- src/Text/Pandoc/Readers/Org.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3