ccc530c · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Logging: Add EnvironmentVariableUndefined constructor to LogMessage.

ccc530cJohn MacFarlane6 years ago

src/Text/Pandoc/Logging.hs+6

compare with master

unifiedsplit

@@ -100,6 +100,7 @@ data LogMessage =

100 | FilterCompleted FilePath Integer

101 | CiteprocWarning Text

102 | ATXHeadingInLHS Int Text

103+ | EnvironmentVariableUndefined Text

103 deriving (Show, Eq, Data, Ord, Typeable, Generic)

104 deriving (Show, Eq, Data, Ord, Typeable, Generic)

104

105

105instance ToJSON LogMessage where

106instance ToJSON LogMessage where

@@ -229,6 +230,8 @@ instance ToJSON LogMessage where

229 ATXHeadingInLHS lvl contents ->

230 ATXHeadingInLHS lvl contents ->

230 ["level" .= lvl

231 ["level" .= lvl

231 ,"contents" .= contents]

232 ,"contents" .= contents]

233+ EnvironmentVariableUndefined var ->

234+ ["variable" .= var ]

232

235

233showPos :: SourcePos -> Text

236showPos :: SourcePos -> Text

234showPos pos = Text.pack $ sn ++ "line " ++

237showPos pos = Text.pack $ sn ++ "line " ++

@@ -345,6 +348,8 @@ showLogMessage msg =

345 if lvl < 3

348 if lvl < 3

346 then " Consider using --markdown-headings=setext."

349 then " Consider using --markdown-headings=setext."

347 else ""

350 else ""

351+ EnvironmentVariableUndefined var ->

352+ "Undefined environment variable " <> var <> " in defaults file."

348

353

349messageVerbosity :: LogMessage -> Verbosity

354messageVerbosity :: LogMessage -> Verbosity

350messageVerbosity msg =

355messageVerbosity msg =

@@ -391,3 +396,4 @@ messageVerbosity msg =

391 FilterCompleted{} -> INFO

396 FilterCompleted{} -> INFO

392 CiteprocWarning{} -> WARNING

397 CiteprocWarning{} -> WARNING

393 ATXHeadingInLHS{} -> WARNING

398 ATXHeadingInLHS{} -> WARNING

399+ EnvironmentVariableUndefined{}-> WARNING