@@ -94,7 +94,7 @@ data LogMessage =
9494 | InvalidLang String
9595 | CouldNotHighlight String
9696 | MissingCharacter String
97− | Deprecated String
97+ | Deprecated String String
9898 deriving (Show, Eq, Data, Ord, Typeable, Generic)
9999
100100instance ToJSON LogMessage where
@@ -192,8 +192,9 @@ instance ToJSON LogMessage where
192192 ["message" .= Text.pack msg]
193193 MissingCharacter msg ->
194194 ["message" .= Text.pack msg]
195− Deprecated msg ->
196− ["message" .= Text.pack msg]
195+ Deprecated thing msg ->
196+ ["thing" .= Text.pack thing,
197+ "message" .= Text.pack msg]
197198
198199
199200showPos :: SourcePos -> String
@@ -276,8 +277,11 @@ showLogMessage msg =
276277 "Could not highlight code block:\n" ++ m
277278 MissingCharacter m ->
278279 "Missing character: " ++ m
279− Deprecated m ->
280− "Deprecated: " ++ m
280+ Deprecated t m ->
281+ "Deprecated: " ++ t ++
282+ if null m
283+ then ""
284+ else ". " ++ m
281285
282286messageVerbosity:: LogMessage -> Verbosity
283287messageVerbosity msg =