git.iko.soy/patch
on 6dfd512 help sign in
patch/test/hlint.hs
16 lines 383 B history raw
1import Language.Haskell.HLint3 (hlint)
2import System.Exit (exitFailure, exitSuccess)
4main :: IO ()
5main = do
6 ideas <- hlint
7 [ "."
8 , "--ignore=Redundant do"
9 , "--ignore=Use camelCase"
10 , "--ignore=Redundant $"
11 , "--ignore=Use &&&"
12 , "--ignore=Use const"
13 , "--ignore=Use >=>"
14 , "--ignore=Use ."
15 ]
16 if null ideas then exitSuccess else exitFailure