diff options
| -rw-r--r-- | src/Text/Pandoc/Logging.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Logging.hs b/src/Text/Pandoc/Logging.hs index 880bfb068..e28a40bba 100644 --- a/src/Text/Pandoc/Logging.hs +++ b/src/Text/Pandoc/Logging.hs @@ -111,6 +111,7 @@ instance ToJSON LogMessage where toJSON x = object $ "verbosity" .= toJSON (messageVerbosity x) : "type" .= toJSON (show $ toConstr x) : + "pretty" .= toJSON (showLogMessage x) : case x of SkippedContent s pos -> ["contents" .= s, |