Add suggestion level in text for TTY output (fixes #2339)

This commit is contained in:
Vidar Holen 2021-10-07 17:14:41 -07:00
parent 6f7eee4a27
commit 38251abe26
2 changed files with 2 additions and 1 deletions

View file

@ -174,7 +174,7 @@ showFixedString color comments lineNum fileLines =
cuteIndent :: PositionedComment -> String
cuteIndent comment =
replicate (fromIntegral $ colNo comment - 1) ' ' ++
makeArrow ++ " " ++ code (codeNo comment) ++ ": " ++ messageText comment
makeArrow ++ " " ++ code (codeNo comment) ++ " (" ++ severityText comment ++ "): " ++ messageText comment
where
arrow n = '^' : replicate (fromIntegral $ n-2) '-' ++ "^"
makeArrow =