rescue-0.4.2.1: lint/Main.hs

module Main (main) where

import           Language.Haskell.HLint (hlint)
import           System.Exit

arguments :: [String]
arguments =
    [ "benchmark"
    , "library"
    , "test"
    , "doctest"
    ]

main :: IO ()
main = do
  hlint arguments
  exitSuccess

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