Commit b9b0f38d authored by Duncan Coutts's avatar Duncan Coutts

Use commandDefaultFlags = mempty rather than commandAddActionWithEmptyFlags

Simpler and simplifies the Command api in the Cabal lib
parent fa235038
......@@ -63,9 +63,10 @@ globalCommand = Cabal.globalCommand {
installCommand :: CommandUI Cabal.ConfigFlags
installCommand = (Cabal.configureCommand defaultProgramConfiguration) {
commandName = "install",
commandSynopsis = "Installs a list of packages.",
commandUsage = usagePackages "install"
commandName = "install",
commandSynopsis = "Installs a list of packages.",
commandUsage = usagePackages "install",
commandDefaultFlags = mempty
}
fetchCommand :: CommandUI (Flag Verbosity)
......@@ -103,7 +104,8 @@ upgradeCommand = (Cabal.configureCommand defaultProgramConfiguration) {
commandName = "upgrade",
commandSynopsis = "Upgrades installed packages to the latest available version",
commandDescription = Nothing,
commandUsage = usagePackages "upgrade"
commandUsage = usagePackages "upgrade",
commandDefaultFlags = mempty
}
{-
......
......@@ -78,11 +78,11 @@ mainWorker args =
++ " of the Cabal library "
commands =
[installCommand `commandAddActionWithEmptyFlags` installAction
[installCommand `commandAddAction` installAction
,infoCommand `commandAddAction` infoAction
,listCommand `commandAddAction` listAction
,updateCommand `commandAddAction` updateAction
,upgradeCommand `commandAddActionWithEmptyFlags` upgradeAction
,upgradeCommand `commandAddAction` upgradeAction
,fetchCommand `commandAddAction` fetchAction
,uploadCommand `commandAddAction` uploadAction
......
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