Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
Cabal
Commits
2557bc2d
Commit
2557bc2d
authored
Dec 17, 2007
by
Duncan Coutts
Browse files
Remove redundant parameters
parent
dde5acdb
Changes
3
Hide whitespace changes
Inline
Side-by-side
cabal-install/Hackage/Fetch.hs
View file @
2557bc2d
...
...
@@ -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
View file @
2557bc2d
...
...
@@ -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
View file @
2557bc2d
...
...
@@ -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
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment