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 {
cmd_verbose :: OptDescr (TempFlags -> TempFlags)
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
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 =
......
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