@@ -90,6 +90,7 @@ data LogMessage =
9090 | Extracting String
9191 | NoTitleElement String
9292 | NoLangSpecified
93+ | InvalidLang String
9394 | CouldNotHighlight String
9495 | MissingCharacter String
9596 deriving (Show, Eq, Data, Ord, Typeable, Generic)
@@ -178,6 +179,8 @@ instance ToJSON LogMessage where
178179 NoTitleElement fallback ->
179180 ["fallback" .= Text.pack fallback]
180181 NoLangSpecified -> []
182+ InvalidLang s ->
183+ ["lang" .= Text.pack s]
181184 CouldNotHighlight msg ->
182185 ["message" .= Text.pack msg]
183186 MissingCharacter msg ->
@@ -254,6 +257,9 @@ showLogMessage msg =
254257 NoLangSpecified ->
255258 "No value for 'lang' was specified in the metadata.\n" ++
256259 "It is recommended that lang be specified for this format."
260+ InvalidLang s ->
261+ "Invalid 'lang' value '" ++ s ++ "'.\n" ++
262+ "Use ISO 8601 format like 'en-US'."
257263 CouldNotHighlight m ->
258264 "Could not highlight code block:\n" ++ m
259265 MissingCharacter m ->
@@ -285,5 +291,6 @@ messageVerbosity msg =
285291 Extracting{} -> INFO
286292 NoTitleElement{} -> WARNING
287293 NoLangSpecified -> INFO
294+ InvalidLang{} -> WARNING
288295 CouldNotHighlight{} -> WARNING
289296 MissingCharacter{} -> WARNING