[commit: Cabal] : Verbosity fixes. (33ea60e)

[Ian Lynagh]

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/33ea60e80aff2fbd6866ea304f83e5afc85c684b

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

commit 33ea60e80aff2fbd6866ea304f83e5afc85c684b
Author: bjorn <bjorn at bringert.net>
Date:   Sat Oct 13 14:29:19 2007 +0000

    Verbosity fixes.

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

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

diff --git a/cabal-install/Hackage/Fetch.hs b/cabal-install/Hackage/Fetch.hs
index 8b9b0b6..3ba17c3 100644
--- a/cabal-install/Hackage/Fetch.hs
+++ b/cabal-install/Hackage/Fetch.hs
@@ -116,7 +116,7 @@ fetchPackage :: ConfigFlags -> PkgInfo -> IO String
 fetchPackage cfg pkg
     = do fetched <- isFetched cfg pkg
          if fetched
-            then do printf "'%s' is present.\n" (showPackageId (pkgInfoId pkg))
+            then do printf "'%s' is cached.\n" (showPackageId (pkgInfoId pkg))
                     return (packageFile cfg pkg)
             else do printf "Downloading '%s'...\n" (showPackageId (pkgInfoId pkg))
                     downloadPackage cfg pkg
diff --git a/cabal-install/Hackage/Install.hs b/cabal-install/Hackage/Install.hs
index e011dd2..f48a84d 100644
--- a/cabal-install/Hackage/Install.hs
+++ b/cabal-install/Hackage/Install.hs
@@ -150,15 +150,9 @@ installUnpackedPkg :: ConfigFlags -> Compiler
                    -> Maybe FilePath -- ^ Directory to change to before starting the installation.
                    -> IO ()
 installUnpackedPkg cfg comp globalArgs pkgId opts mpath
-    = do printf "Building '%s'\n" (showPackageId pkgId)
-         printf "  Configuring...\n"
-         setup "configure"
-         printf "  Building...\n"
+    = do setup "configure"
          setup "build"
-         printf "  Installing...\n"
          setup "install"
-         printf "  Done.\n"
-         return ()
   where
     setup cmd 
         = do let cmdOps = mkPkgOps cfg comp pkgId cmd (globalArgs++opts)