mirror of
https://github.com/lexi-lambda/freer-simple.git
synced 2024-12-24 22:54:27 +03:00
34 lines
738 B
Haskell
34 lines
738 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
-- |
|
|
-- Module: Main
|
|
-- Description: HLint tests executor
|
|
-- Copyright: (c) 2015-2016, Ixperta Solutions s.r.o.
|
|
-- License: BSD3
|
|
--
|
|
-- Stability: stable
|
|
-- Portability: portable
|
|
--
|
|
-- HLint tests executor.
|
|
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 <> ["."]
|
|
unless (null hints) exitFailure
|
|
where
|
|
hlintOpts =
|
|
[ "-XNoPatternSynonyms"
|
|
]
|