Commit 2557bc2d authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Remove redundant parameters

parent dde5acdb
......@@ -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
......
......@@ -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
......
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment