Commit c0cea6ea authored by duncan.coutts@worc.ox.ac.uk's avatar duncan.coutts@worc.ox.ac.uk
Browse files

Make the -v flag mean -v2 like cabal does, not -v3

This is relevant since we pass on this default verbosity when we call cabal,
so it's much better if they match up.
parent e6ad7fc5
...@@ -49,9 +49,9 @@ emptyTempFlags = TempFlags { ...@@ -49,9 +49,9 @@ emptyTempFlags = TempFlags {
cmd_verbose :: OptDescr (TempFlags -> TempFlags) cmd_verbose :: OptDescr (TempFlags -> TempFlags)
cmd_verbose = Option "v" ["verbose"] (OptArg verboseFlag "n") cmd_verbose = Option "v" ["verbose"] (OptArg verboseFlag "n")
"Control verbosity (n is 0--5, normal verbosity level is 1, -v alone is equivalent to -v3)" "Control verbosity (n is 0--5, normal verbosity level is 1, -v alone is equivalent to -v2)"
where where
verboseFlag mb_s t = t { tempVerbose = maybe 3 read mb_s } verboseFlag mb_s t = t { tempVerbose = maybe 2 read mb_s }
globalOptions :: [OptDescr (TempFlags -> TempFlags)] globalOptions :: [OptDescr (TempFlags -> TempFlags)]
globalOptions = globalOptions =
......
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