Show expose error code in shellcheck frontends

This commit is contained in:
Vidar Holen
2013-11-10 12:22:33 -08:00
parent e5e08df1d9
commit d404bc703d
3 changed files with 5 additions and 2 deletions

View File

@@ -66,7 +66,9 @@ doInput filename contents colorFunc = do
return $ null comments
cuteIndent comment =
(replicate ((scColumn comment) - 1) ' ') ++ "^-- " ++ (scMessage comment)
(replicate ((scColumn comment) - 1) ' ') ++ "^-- " ++ (code $ scCode comment) ++ ": " ++ (scMessage comment)
code code = "SC" ++ (show code)
getColorFunc = do
term <- hIsTerminalDevice stdout