Move the command line arguments to the main

Author: ndmitchell

src/CmdLine.hs

@@ -6,7 +6,6 @@ import Data.List
 import Data.Maybe
 import System.Console.GetOpt
 import System.Directory
-import System.Environment
 import System.Exit
 import System.FilePath
 import Language.Preprocessor.Cpphs
@@ -57,9 +56,8 @@ opts = [Option "?" ["help"] (NoArg Help) "Display help message"
 
 
 -- | Exit out if you need to display help info
-getCmd :: IO Cmd
-getCmd = do
-    args <- getArgs
+getCmd :: [String] -> IO Cmd
+getCmd args = do
     let (opt,files,err) = getOpt Permute opts args
     let test = Test `elem` opt
     unless (null err) $

src/HLint.hs

@@ -20,8 +20,9 @@ import Hint.All
 import HSE.All
 
 
-main = do
-    Cmd{..} <- getCmd
+main :: [String] -> IO ()
+main args = do
+    Cmd{..} <- getCmd args
     if cmdTest then test cmdDataDir else do
         settings <- readSettings cmdDataDir cmdHintFiles
         let extra = [Classify Ignore x ("","") | x <- cmdIgnore]

src/Main.hs

@@ -19,6 +19,10 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 module Main where
 
 import qualified HLint
+import System.Environment
 
 main :: IO ()
-main = HLint.main
+main = do
+    args <- getArgs
+    HLint.main args
+