@@ -100,6 +100,7 @@ data LogMessage =
100100 | FilterCompleted FilePath Integer
101101 | CiteprocWarning Text
102102 | ATXHeadingInLHS Int Text
103+ | EnvironmentVariableUndefined Text
103104 deriving (Show, Eq, Data, Ord, Typeable, Generic)
104105
105106instance ToJSON LogMessage where
@@ -229,6 +230,8 @@ instance ToJSON LogMessage where
229230 ATXHeadingInLHS lvl contents ->
230231 ["level" .= lvl
231232 ,"contents" .= contents]
233+ EnvironmentVariableUndefined var ->
234+ ["variable" .= var ]
232235
233236showPos :: SourcePos -> Text
234237showPos pos = Text.pack $ sn ++ "line " ++
@@ -345,6 +348,8 @@ showLogMessage msg =
345348 if lvl < 3
346349 then " Consider using --markdown-headings=setext."
347350 else ""
351+ EnvironmentVariableUndefined var ->
352+ "Undefined environment variable " <> var <> " in defaults file."
348353
349354messageVerbosity :: LogMessage -> Verbosity
350355messageVerbosity msg =
@@ -391,3 +396,4 @@ messageVerbosity msg =
391396 FilterCompleted{} -> INFO
392397 CiteprocWarning{} -> WARNING
393398 ATXHeadingInLHS{} -> WARNING
399+ EnvironmentVariableUndefined{}-> WARNING