test/Hlint.hs

   1 module Main where
   2
   3 import Control.Monad
   4 import Language.Haskell.HLint
   5 import System.Environment
   6 import System.Exit
   7
   8 main :: IO ()
   9 main = do
  10   args <- getArgs
  11   hints <- hlint $ ["src", "--cpp-define=HLINT", "--cpp-ansi"] ++ args
  12   unless (null hints) exitFailure