HLintRunner.hs

module Main where

import Language.Haskell.HLint (hlint)
import System.Exit (exitFailure, exitSuccess)

arguments :: [String]
arguments = ["Main.lhs"]

main :: IO ()
main = do
  hints <- hlint arguments
  if null hints then exitSuccess else exitFailure