{-# LANGUAGE NoImplicitPrelude #-}

module Main (main) where

import Control.Monad (unless)
import Data.Function (($))
import Data.List (null)
import Data.Monoid ((<>))
import System.IO (IO, putStrLn)
import System.Exit (exitFailure)

import Language.Haskell.HLint (hlint)


main :: IO ()
main = do
    putStrLn "" -- less confusing output, test-framework does this too
    hints <- hlint $ hlintOpts <> ["src", "test"]
    unless (null hints) exitFailure
  where
    hlintOpts =
        [ "-XNoPatternSynonyms"
        ]