@@ -139,15 +139,17 @@ renderSeverity s = case s of
140-------------------------------------------------------------------------------
140-------------------------------------------------------------------------------
141textToSeverity :: Text -> Maybe Severity
141textToSeverity :: Text -> Maybe Severity
142−textToSeverity "Debug" = Just DebugS
142+textToSeverity = go . T.toLower
144+ go "debug" = Just DebugS
143−textToSeverity "Info" = Just InfoS
145+ go "info" = Just InfoS
144−textToSeverity "Notice" = Just NoticeS
146+ go "notice" = Just NoticeS
145−textToSeverity "Warning" = Just WarningS
147+ go "warning" = Just WarningS
146−textToSeverity "Error" = Just ErrorS
148+ go "error" = Just ErrorS
147−textToSeverity "Critical" = Just CriticalS
149+ go "critical" = Just CriticalS
148−textToSeverity "Alert" = Just AlertS
150+ go "alert" = Just AlertS
149−textToSeverity "Emergency" = Just EmergencyS
151+ go "emergency" = Just EmergencyS
150−textToSeverity _ = Nothing
152+ go _ = Nothing
153instance ToJSON Severity where
155instance ToJSON Severity where