unsafeSeverityFromString :: String -> Severity
unsafeSeverityFromString str =
    case Aeson.decodeStrict ("\"" <> B8.pack str <> "\"") of
        Nothing ->
            error $ "Tried to convert a 'String' to a 'Severity' but failed."

        Just severity ->
            severity
unsafeSeverityFromString :: String -> Severity
unsafeSeverityFromString str =
    case Aeson.decodeStrict ("\"" <> B8.pack str <> "\"") of
        Nothing ->
            error $ "Tried to convert a 'String' to a 'Severity' but failed."

        Just severity ->
            severity
unsafeSeverityFromString str =
    case Aeson.decodeStrict ("\"" <> B8.pack str <> "\"") of
        Nothing ->
            error $ "Tried to convert a 'String' to a 'Severity' but failed."

        Just severity ->
            severity