Show expose error code in shellcheck frontends

This commit is contained in:
Vidar Holen 2013-11-10 12:22:33 -08:00
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