git.iko.soy/typeable/pandoc
on master help sign in
Added Deprecated warning to LogMessage.
ea6be2eJohn MacFarlane
src/Text/Pandoc/Logging.hs+7
compare with master
unifiedsplit
@@ -94,6 +94,7 @@ data LogMessage =
94 | InvalidLang String
94 | InvalidLang String
95 | CouldNotHighlight String
95 | CouldNotHighlight String
96 | MissingCharacter String
96 | MissingCharacter String
97+ | Deprecated String
97 deriving (Show, Eq, Data, Ord, Typeable, Generic)
98 deriving (Show, Eq, Data, Ord, Typeable, Generic)
98
99
99instance ToJSON LogMessage where
100instance ToJSON LogMessage where
@@ -191,6 +192,9 @@ instance ToJSON LogMessage where
191 ["message" .= Text.pack msg]
192 ["message" .= Text.pack msg]
192 MissingCharacter msg ->
193 MissingCharacter msg ->
193 ["message" .= Text.pack msg]
194 ["message" .= Text.pack msg]
195+ Deprecated msg ->
196+ ["message" .= Text.pack msg]
197+
194
198
195showPos :: SourcePos -> String
199showPos :: SourcePos -> String
196showPos pos = sn ++ "line " ++
200showPos pos = sn ++ "line " ++
@@ -272,6 +276,8 @@ showLogMessage msg =
272 "Could not highlight code block:\n" ++ m
276 "Could not highlight code block:\n" ++ m
273 MissingCharacter m ->
277 MissingCharacter m ->
274 "Missing character: " ++ m
278 "Missing character: " ++ m
279+ Deprecated m ->
280+ "Deprecated: " ++ m
275
281
276messageVerbosity:: LogMessage -> Verbosity
282messageVerbosity:: LogMessage -> Verbosity
277messageVerbosity msg =
283messageVerbosity msg =
@@ -303,3 +309,4 @@ messageVerbosity msg =
303 InvalidLang{} -> WARNING
309 InvalidLang{} -> WARNING
304 CouldNotHighlight{} -> WARNING
310 CouldNotHighlight{} -> WARNING
305 MissingCharacter{} -> WARNING
311 MissingCharacter{} -> WARNING
312+ Deprecated{} -> WARNING