From 33ea60e80aff2fbd6866ea304f83e5afc85c684b Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Sat, 13 Oct 2007 14:29:19 +0000
Subject: [PATCH] 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 8b9b0b697b..3ba17c3781 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 e011dd2599..f48a84d526 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)
--
GitLab