Remove redundant parameters

cabal-install/Hackage/Fetch.hs

@@ -123,8 +123,8 @@ fetchPackage cfg pkg
                     downloadPackage cfg pkg
 
 -- |Fetch a list of packages and their dependencies.
-fetch :: ConfigFlags -> Compiler -> ProgramConfiguration -> [String] -> [UnresolvedDependency] -> IO ()
-fetch cfg comp conf _globalArgs deps
+fetch :: ConfigFlags -> Compiler -> ProgramConfiguration -> [UnresolvedDependency] -> IO ()
+fetch cfg comp conf deps
     = do depTree <- resolveDependencies cfg comp conf deps
          case packagesToInstall depTree of
            Left missing -> fail $ "Unresolved dependencies: " ++ showDependencies missing

cabal-install/Hackage/Info.hs

@@ -26,8 +26,8 @@ import Distribution.Simple.Program (ProgramConfiguration)
 import Data.List (intersperse, nubBy)
 import Text.Printf (printf)
 
-info :: ConfigFlags -> Compiler -> ProgramConfiguration -> [String] -> [UnresolvedDependency] -> IO ()
-info cfg comp conf _globalArgs deps
+info :: ConfigFlags -> Compiler -> ProgramConfiguration -> [UnresolvedDependency] -> IO ()
+info cfg comp conf deps
     = do apkgs <- resolveDependencies cfg comp conf deps
          mapM_ (infoPkg cfg) $ flattenResolvedPackages apkgs
          case packagesToInstall apkgs of

cabal-install/Main.hs

@@ -143,7 +143,7 @@ infoAction flags extraArgs = do
   (comp, conf) <- findCompiler config
   case parsePackageArgs extraArgs of
     Left  err  -> putStrLn err >> exitWith (ExitFailure 1)
-    Right pkgs -> info config comp conf [] pkgs
+    Right pkgs -> info config comp conf pkgs
 
 listAction :: Cabal.Flag Verbosity -> Args -> IO ()
 listAction flags extraArgs = do
@@ -167,4 +167,4 @@ fetchAction flags extraArgs = do
   (comp, conf) <- findCompiler config
   case parsePackageArgs extraArgs of
     Left  err  -> putStrLn err >> exitWith (ExitFailure 1)
-    Right pkgs -> fetch config comp conf [] pkgs
+    Right pkgs -> fetch config comp conf pkgs