@@ -18,7 +18,6 @@ import Text.Pandoc.Readers.Org.Parsing (OrgParser, readWithM)
19import Text.Pandoc.Class (PandocMonad)
19import Text.Pandoc.Class (PandocMonad)
20import Text.Pandoc.Definition
20import Text.Pandoc.Definition
21−import Text.Pandoc.Error
22import Text.Pandoc.Options
21import Text.Pandoc.Options
23import Text.Pandoc.Parsing (reportLogMessages)
22import Text.Pandoc.Parsing (reportLogMessages)
24import Text.Pandoc.Shared (crFilter)
23import Text.Pandoc.Shared (crFilter)
@@ -39,7 +38,7 @@ readOrg opts s = do
39 (crFilter s <> "\n\n")
38 (crFilter s <> "\n\n")
40 case parsed of
39 case parsed of
41 Right result -> return result
40 Right result -> return result
42− Left _ -> throwError $ PandocParseError "problem parsing org"
41+ Left e -> throwError e