tests/HLint.hs

   1 module Main (main) where
   2
   3 import Language.Haskell.HLint
   4 import System.Exit
   5
   6 main :: IO ()
   7 main = do
   8   hints <- hlint ["lib", "src"]
   9   if null hints then exitSuccess else exitFailure