1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
semantic/test/Lint.hs

10 lines
295 B
Haskell
Raw Normal View History

2018-05-21 18:17:11 +03:00
module Main (main) where
2018-06-19 16:46:01 +03:00
import Language.Haskell.HLint (Severity(..), hlint, suggestionSeverity)
2018-05-21 18:17:11 +03:00
import System.Exit (exitFailure, exitSuccess)
main :: IO ()
main = do
hints <- hlint [ "src" ]
2018-06-19 16:46:01 +03:00
if null (filter ((>= Warning) . suggestionSeverity) hints) then exitSuccess else exitFailure