More informative JSON parse error.

Closes #5973.
2019-12-09 07:25:37 -08:00 · 2019-12-09 07:25:37 -08:00 · a6297d252e
commit a6297d252e
parent 0bfe478a69
1 changed files with 1 additions and 1 deletions
--- 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)