diff options
| -rw-r--r-- | src/Text/Pandoc/Readers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers.hs b/src/Text/Pandoc/Readers.hs index 461f7f4d9..36a0e6daa 100644 --- a/src/Text/Pandoc/Readers.hs +++ b/src/Text/Pandoc/Readers.hs @@ -165,4 +165,4 @@ readJSON :: PandocMonad m readJSON _ t = case eitherDecode' . BL.fromStrict . UTF8.fromText $ t of Right doc -> return doc - Left _ -> throwError $ PandocParseError "JSON parse error" + Left e -> throwError $ PandocParseError ("JSON parse error: " <> T.pack e) |