@@ -399,7 +399,7 @@ prettyPrintSingleError full level e = prettyPrintErrorMessage <$> onTypesInError
399399 prettyPrintErrorMessage em =
400400 paras $
401401 go em:suggestions em ++
402− [line $ "See " ++ wikiUri ++ " for more information, or to contribute content related to this error."]
402+ [line $ "See " ++ wikiUri ++ " for more information, or to contribute content related to this " ++ levelText ++ "."]
403403 where
404404 wikiUri :: String
405405 wikiUri = "https://github.com/purescript/purescript/wiki/Error-Code-" ++ errorCode e
@@ -736,6 +736,11 @@ prettyPrintSingleError full level e = prettyPrintErrorMessage <$> onTypesInError
736736 lineWithLevel :: String -> Box.Box
737737 lineWithLevel text = line $ show level ++ " " ++ text
738738
739+ levelText :: String
740+ levelText = case level of
741+ Error -> "error"
742+ Warning -> "warning"
743+
739744 suggestions :: ErrorMessage -> [Box.Box]
740745 suggestions = suggestions' . unwrapErrorMessage
741746 where