diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-11 20:13:33 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-11 20:13:33 +0100 |
| commit | 92a5445aa1a0f9d6ff76c2dd97fd742033ff84ce (patch) | |
| tree | 4b1451204885ca0db0861e9aaed65be2aa714cdb /src/Text/Pandoc/Logging.hs | |
| parent | a6c649cfc8a591d0157b7bc89f34c6ef51a9ca27 (diff) | |
Logging: export logMessagesToJSON.
Use a deterministic order for fields.
Diffstat (limited to 'src/Text/Pandoc/Logging.hs')
| -rw-r--r-- | src/Text/Pandoc/Logging.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Logging.hs b/src/Text/Pandoc/Logging.hs index 8b2b85a45..15b903c05 100644 --- a/src/Text/Pandoc/Logging.hs +++ b/src/Text/Pandoc/Logging.hs @@ -32,6 +32,7 @@ and info messages. module Text.Pandoc.Logging ( Verbosity(..) , LogMessage(..) + , logMessagesToJSON , showLogMessage , messageVerbosity ) where @@ -43,6 +44,9 @@ import GHC.Generics (Generic) import qualified Data.Text as Text import Data.Aeson import Text.Pandoc.Definition +import Data.Aeson.Encode.Pretty (encodePretty', keyOrder, + defConfig, Config(..)) +import qualified Data.ByteString.Lazy as BL -- | Verbosity level. data Verbosity = ERROR | WARNING | INFO | DEBUG @@ -152,6 +156,12 @@ showPos pos = sn ++ "line " ++ then "" else sourceName pos ++ " " +logMessagesToJSON :: [LogMessage] -> BL.ByteString +logMessagesToJSON ms = + encodePretty' defConfig{ confCompare = + keyOrder [ "type", "verbosity", "contents", "message", "path", + "source", "line", "column" ] } ms + showLogMessage :: LogMessage -> String showLogMessage msg = case msg of |