Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added Deprecated warning to LogMessage.

Browse source
This commit is contained in:
John MacFarlane 2017-08-07 21:25:07 -07:00
parent 5064241b24
commit ea6be2e4e7
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Logging.hs
View file

@ -94,6 +94,7 @@ data LogMessage =
| InvalidLang String | InvalidLang String
| CouldNotHighlight String | CouldNotHighlight String
| MissingCharacter String | MissingCharacter String
| Deprecated String
deriving (Show, Eq, Data, Ord, Typeable, Generic) deriving (Show, Eq, Data, Ord, Typeable, Generic)
instance ToJSON LogMessage where instance ToJSON LogMessage where
@ -191,6 +192,9 @@ instance ToJSON LogMessage where
["message" .= Text.pack msg] ["message" .= Text.pack msg]
MissingCharacter msg -> MissingCharacter msg ->
["message" .= Text.pack msg] ["message" .= Text.pack msg]
Deprecated msg ->
["message" .= Text.pack msg]
showPos :: SourcePos -> String showPos :: SourcePos -> String
showPos pos = sn ++ "line " ++ showPos pos = sn ++ "line " ++
@ -272,6 +276,8 @@ showLogMessage msg =
"Could not highlight code block:\n" ++ m "Could not highlight code block:\n" ++ m
MissingCharacter m -> MissingCharacter m ->
"Missing character: " ++ m "Missing character: " ++ m
Deprecated m ->
"Deprecated: " ++ m
messageVerbosity:: LogMessage -> Verbosity messageVerbosity:: LogMessage -> Verbosity
messageVerbosity msg = messageVerbosity msg =
@ -303,3 +309,4 @@ messageVerbosity msg =
InvalidLang{} -> WARNING InvalidLang{} -> WARNING
CouldNotHighlight{} -> WARNING CouldNotHighlight{} -> WARNING
MissingCharacter{} -> WARNING MissingCharacter{} -> WARNING
Deprecated{} -> WARNING