[commit: Cabal] master: Make the -v flag mean -v2 like cabal does, not -v3 (c0cea6e)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c0cea6ea7c90eab7be25114cf93da5d7836241c9

>---------------------------------------------------------------

commit c0cea6ea7c90eab7be25114cf93da5d7836241c9
Author: Duncan Coutts <duncan.coutts at worc.ox.ac.uk>
Date:   Thu May 3 19:33:48 2007 +0000

    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.

>---------------------------------------------------------------

 .../src/Network/Hackage/CabalInstall/Setup.hs      |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cabal-install/src/Network/Hackage/CabalInstall/Setup.hs b/cabal-install/src/Network/Hackage/CabalInstall/Setup.hs
index 3d4f3d8..fdcc460 100644
--- a/cabal-install/src/Network/Hackage/CabalInstall/Setup.hs
+++ b/cabal-install/src/Network/Hackage/CabalInstall/Setup.hs
@@ -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 =