From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
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/frontends/FTP-and-SFTP.rst?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