diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-03-05 10:28:31 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-03-05 10:28:46 -0800 |
| commit | ccc530c5884f9c36d63fb8a63ce6fadce166015c (patch) | |
| tree | 95d15d62c8b9749b50ab4e1f1f0fa38ac96877ea | |
| parent | 5f9327cfc8143902bbd3fdb9d97a7995a19fd217 (diff) | |
| download | pandoc-ccc530c5884f9c36d63fb8a63ce6fadce166015c.tar.gz | |
Logging: Add EnvironmentVariableUndefined constructor to LogMessage.
[API change]
| -rw-r--r-- | src/Text/Pandoc/Logging.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Logging.hs b/src/Text/Pandoc/Logging.hs index 3a3acedc7..1d7bc9d66 100644 --- a/src/Text/Pandoc/Logging.hs +++ b/src/Text/Pandoc/Logging.hs @@ -100,6 +100,7 @@ data LogMessage = | FilterCompleted FilePath Integer | CiteprocWarning Text | ATXHeadingInLHS Int Text + | EnvironmentVariableUndefined Text deriving (Show, Eq, Data, Ord, Typeable, Generic) instance ToJSON LogMessage where @@ -229,6 +230,8 @@ instance ToJSON LogMessage where ATXHeadingInLHS lvl contents -> ["level" .= lvl ,"contents" .= contents] + EnvironmentVariableUndefined var -> + ["variable" .= var ] showPos :: SourcePos -> Text showPos pos = Text.pack $ sn ++ "line " ++ @@ -345,6 +348,8 @@ showLogMessage msg = if lvl < 3 then " Consider using --markdown-headings=setext." else "" + EnvironmentVariableUndefined var -> + "Undefined environment variable " <> var <> " in defaults file." messageVerbosity :: LogMessage -> Verbosity messageVerbosity msg = @@ -391,3 +396,4 @@ messageVerbosity msg = FilterCompleted{} -> INFO CiteprocWarning{} -> WARNING ATXHeadingInLHS{} -> WARNING + EnvironmentVariableUndefined{}-> WARNING |