Add command-line option -S/--severity

Specifies the maximum severity of errors to handle.  For example,
specifying "-S warning" means that errors of severity "info" and
"style" are ignored.

Signed-off-by: Martin Schwenke <martin@meltin.net>
This commit is contained in:
Martin Schwenke 2018-08-12 21:28:48 +10:00 committed by Vidar Holen
parent 15aaacf715
commit b16da4b242
4 changed files with 33 additions and 5 deletions

View file

@ -67,7 +67,8 @@ checkScript sys spec = do
return . nub . sortMessages . filter shouldInclude $
(parseMessages ++ map translator analysisMessages)
shouldInclude (PositionedComment _ _ (Comment _ code _)) =
shouldInclude (PositionedComment _ _ (Comment severity code _)) =
severity <= csMaxSeverity spec &&
code `notElem` csExcludedWarnings spec
sortMessages = sortBy (comparing order)