Permalink
Browse files

Fix verbosity flag

  • Loading branch information...
1 parent 0140dc8 commit a973398e9af1f204d15fe2f677118d62e553855b @kolmodin kolmodin committed Sep 1, 2008
Showing with 2 additions and 3 deletions.
  1. +2 −3 Main.hs
View
@@ -12,6 +12,7 @@ import Distribution.Simple.Setup
( Flag(..), fromFlag
, falseArg
, flagToMaybe, flagToList
+ , optionVerbosity
)
import Distribution.PackageDescription.Configuration
( flattenPackageDescription )
@@ -287,9 +288,7 @@ globalCommand = CommandUI {
commandUsage = \_ -> [],
commandDefaultFlags = defaultGlobalFlags,
commandOptions = \showOrParseArgs ->
- [option "v" ["verbose"]
- globalVerbosity (\v flags -> flags { globalVerbosity = v } )
- falseArg
+ [ optionVerbosity globalVerbosity (\v flags -> flags { globalVerbosity = v })
]
}

0 comments on commit a973398

Please sign in to comment.