on efaaa52 help sign in
reflex-dom/test/hlint.hs
12 lines 283 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 ]
12 if null ideas then exitSuccess else exitFailure