@@ -392,7 +392,7 @@ prettyPrintSingleError full level e = prettyPrintErrorMessage <$> onTypesInError
392392 prettyPrintErrorMessage em =
393393 paras $
394394 go em:suggestions em ++
395− [line $ "See " ++ wikiUri ++ " for more information, or to contribute content related to this error."]
395+ [line $ "See " ++ wikiUri ++ " for more information, or to contribute content related to this " ++ levelText ++ "."]
396396 where
397397 wikiUri :: String
398398 wikiUri = "https://github.com/purescript/purescript/wiki/Error-Code-" ++ errorCode e
@@ -728,6 +728,11 @@ prettyPrintSingleError full level e = prettyPrintErrorMessage <$> onTypesInError
728728 lineWithLevel :: String -> Box.Box
729729 lineWithLevel text = line $ show level ++ " " ++ text
730730
731+ levelText :: String
732+ levelText = case level of
733+ Error -> "error"
734+ Warning -> "warning"
735+
731736 suggestions :: ErrorMessage -> [Box.Box]
732737 suggestions = suggestions' . unwrapErrorMessage
733738 where