diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-07 21:25:07 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-07 21:25:07 -0700 |
commit | ea6be2e4e710b3dcd56d526ec6d98c925b8fd58b (patch) | |
tree | 9b77b75520d8003fff0a8aed39a3821e8dfe1534 /src/Text/Pandoc/Logging.hs | |
parent | 5064241b24888b325836d4912085e916fe45080b (diff) | |
download | pandoc-ea6be2e4e710b3dcd56d526ec6d98c925b8fd58b.tar.gz |
Added Deprecated warning to LogMessage.
Diffstat (limited to 'src/Text/Pandoc/Logging.hs')
-rw-r--r-- | src/Text/Pandoc/Logging.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Logging.hs b/src/Text/Pandoc/Logging.hs index 1dcff7470..91b225028 100644 --- a/src/Text/Pandoc/Logging.hs +++ b/src/Text/Pandoc/Logging.hs @@ -94,6 +94,7 @@ data LogMessage = | InvalidLang String | CouldNotHighlight String | MissingCharacter String + | Deprecated String deriving (Show, Eq, Data, Ord, Typeable, Generic) instance ToJSON LogMessage where @@ -191,6 +192,9 @@ instance ToJSON LogMessage where ["message" .= Text.pack msg] MissingCharacter msg -> ["message" .= Text.pack msg] + Deprecated msg -> + ["message" .= Text.pack msg] + showPos :: SourcePos -> String showPos pos = sn ++ "line " ++ @@ -272,6 +276,8 @@ showLogMessage msg = "Could not highlight code block:\n" ++ m MissingCharacter m -> "Missing character: " ++ m + Deprecated m -> + "Deprecated: " ++ m messageVerbosity:: LogMessage -> Verbosity messageVerbosity msg = @@ -303,3 +309,4 @@ messageVerbosity msg = InvalidLang{} -> WARNING CouldNotHighlight{} -> WARNING MissingCharacter{} -> WARNING + Deprecated{} -> WARNING |