Run HLint as a test suite.

diff --git a/functorrent.cabal b/functorrent.cabal
index c70ff4e0c62ced4c1c66029bb15afc8e3d7ee6be..72295f66ef0d2d1df0e77fd999e57d794d59d1ed 100644 (file)
--- a/functorrent.cabal
+++ b/functorrent.cabal
@@ -66,3 +66,11 @@ test-suite functorrent-test
                      doctest,
                      tasty,
                      tasty-hunit
+
+test-suite functorrent-hlint
+  type:              exitcode-stdio-1.0
+  default-language:  Haskell2010
+  hs-source-dirs:    test
+  main-is:           hlint.hs
+  build-depends:     base,
+                     hlint

diff --git a/test/hlint.hs b/test/hlint.hs
new file mode 100644 (file)
index 0000000..0fa2512
--- /dev/null
+++ b/test/hlint.hs
@@ -0,0 +1,12 @@
+module Main where
+
+import Control.Monad
+import Language.Haskell.HLint
+import System.Environment
+import System.Exit
+
+main :: IO ()
+main = do
+  args <- getArgs
+  hints <- hlint $ ["src", "--cpp-define=HLINT", "--cpp-ansi"] ++ args
+  unless (null hints) exitFailure