From: Ramakrishnan Muthukrishnan Date: Tue, 24 Mar 2015 08:04:10 +0000 (+0530) Subject: FIlenames start with capital letters. hlint.hs -> HLint.hs X-Git-Url: https://git.rkrishnan.org/pf/content/en/footer/index.html?a=commitdiff_plain;h=8de780bda6839fa44e78ad3e060e9d8b071f8ce0;p=functorrent.git FIlenames start with capital letters. hlint.hs -> HLint.hs --- diff --git a/functorrent.cabal b/functorrent.cabal index 72295f6..fc4cfb3 100644 --- a/functorrent.cabal +++ b/functorrent.cabal @@ -42,7 +42,7 @@ executable functorrent main-is: Main.hs other-extensions: OverloadedStrings hs-source-dirs: src - ghc-options: -Wall -fwarn-incomplete-patterns + ghc-options: -Wall -fwarn-incomplete-patterns -optc-Os default-language: Haskell2010 build-depends: base, base16-bytestring, @@ -71,6 +71,6 @@ test-suite functorrent-hlint type: exitcode-stdio-1.0 default-language: Haskell2010 hs-source-dirs: test - main-is: hlint.hs + main-is: Hlint.hs build-depends: base, hlint diff --git a/test/Hlint.hs b/test/Hlint.hs new file mode 100644 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 diff --git a/test/hlint.hs b/test/hlint.hs deleted file mode 100644 index 0fa2512..0000000 --- a/test/hlint.hs +++ /dev/null @@ -1,12 +0,0 @@ -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