mirror of
https://github.com/github/semantic.git
synced 2024-11-24 17:04:47 +03:00
10 lines
295 B
Haskell
10 lines
295 B
Haskell
module Main (main) where
|
|
|
|
import Language.Haskell.HLint (Severity(..), hlint, suggestionSeverity)
|
|
import System.Exit (exitFailure, exitSuccess)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
hints <- hlint [ "src" ]
|
|
if null (filter ((>= Warning) . suggestionSeverity) hints) then exitSuccess else exitFailure
|