[commit: Cabal] : More verbosity fixes. (4ba199e)

[Ian Lynagh]

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/4ba199e0e2dce77765a2fe2106c799b0cc9c5676

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

commit 4ba199e0e2dce77765a2fe2106c799b0cc9c5676
Author: bjorn <bjorn at bringert.net>
Date:   Sat Oct 13 14:35:02 2007 +0000

    More verbosity fixes.

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

 cabal-install/Hackage/Install.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cabal-install/Hackage/Install.hs b/cabal-install/Hackage/Install.hs
index f48a84d..0097fb7 100644
--- a/cabal-install/Hackage/Install.hs
+++ b/cabal-install/Hackage/Install.hs
@@ -135,7 +135,7 @@ installPkg cfg comp globalArgs (pkg,opts)
              path = tmpDirPath </> showPackageId p
          bracket_ (createDirectoryIfMissing True tmpDirPath)
                   (removeDirectoryRecursive tmpDirPath)
-                  (do message cfg deafening (printf "Extracting %s..." pkgPath)
+                  (do message cfg verbose (printf "Extracting %s to %s..." pkgPath tmpDirPath)
                       extractTarGzFile (Just tmpDirPath) pkgPath
                       let descFilePath = tmpDirPath </> showPackageId p </> pkgName p <.> "cabal"
                       e <- doesFileExist descFilePath
@@ -156,6 +156,6 @@ installUnpackedPkg cfg comp globalArgs pkgId opts mpath
   where
     setup cmd 
         = do let cmdOps = mkPkgOps cfg comp pkgId cmd (globalArgs++opts)
-             message cfg deafening $ 
+             message cfg verbose $ 
                      unwords ["setupWrapper", show (cmd:cmdOps), show mpath]
              setupWrapper (cmd:cmdOps) mpath
\ No newline at end of file