Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch :
http://hackage.haskell.org/trac/ghc/changeset/4ba199e0e2dce77765a2fe2106c799b0cc9c5676 >--------------------------------------------------------------- commit 4ba199e0e2dce77765a2fe2106c799b0cc9c5676 Author: bjorn <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
