@@ -94,6 +94,7 @@ data LogMessage =
9494 | InvalidLang String
9595 | CouldNotHighlight String
9696 | MissingCharacter String
97+ | Deprecated String
9798 deriving (Show, Eq, Data, Ord, Typeable, Generic)
9899
99100instance ToJSON LogMessage where
@@ -191,6 +192,9 @@ instance ToJSON LogMessage where
191192 ["message" .= Text.pack msg]
192193 MissingCharacter msg ->
193194 ["message" .= Text.pack msg]
195+ Deprecated msg ->
196+ ["message" .= Text.pack msg]
197+
194198
195199showPos :: SourcePos -> String
196200showPos pos = sn ++ "line " ++
@@ -272,6 +276,8 @@ showLogMessage msg =
272276 "Could not highlight code block:\n" ++ m
273277 MissingCharacter m ->
274278 "Missing character: " ++ m
279+ Deprecated m ->
280+ "Deprecated: " ++ m
275281
276282messageVerbosity:: LogMessage -> Verbosity
277283messageVerbosity msg =
@@ -303,3 +309,4 @@ messageVerbosity msg =
303309 InvalidLang{} -> WARNING
304310 CouldNotHighlight{} -> WARNING
305311 MissingCharacter{} -> WARNING
312+ Deprecated{} -> WARNING