module Main where

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

main :: IO ()
main = do
  hints <- hlint ["bin", "src"]
  if null hints then exitSuccess
                else exitFailure