diff options
| author | David Waern <david.waern@gmail.com> | 2008-12-07 19:58:53 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-12-07 19:58:53 +0000 |
| commit | 302651f5b7182061f0459d71cf3e17189bf2ca64 (patch) | |
| tree | b97cb96e5054405f9918aad75ad1053e857b4fe4 /src/Haddock/Options.hs | |
| parent | 3144024f2b768749b29f16a744dee6028577f0bf (diff) | |
Add verbosity flag and utils, remove "verbose" flag
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs index 09ce47fe..e1647b1f 100644 --- a/src/Haddock/Options.hs +++ b/src/Haddock/Options.hs @@ -72,7 +72,7 @@ data Flag | Flag_WikiModuleURL String | Flag_WikiEntityURL String | Flag_Help - | Flag_Verbose + | Flag_Verbosity String | Flag_Version | Flag_UseContents String | Flag_GenContents @@ -133,8 +133,8 @@ options backwardsCompat = "display this help and exit", Option ['V'] ["version"] (NoArg Flag_Version) "output version information and exit", - Option ['v'] ["verbose"] (NoArg Flag_Verbose) - "increase verbosity", + Option ['v'] ["verbosity"] (ReqArg Flag_Verbosity "VERBOSITY") + "set verbosity level", Option [] ["use-contents"] (ReqArg Flag_UseContents "URL") "use a separately-generated HTML contents page", Option [] ["gen-contents"] (NoArg Flag_GenContents) |