Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f3f07d2ea78e1815a4dccf17a286445bd2ff6b46 >--------------------------------------------------------------- commit f3f07d2ea78e1815a4dccf17a286445bd2ff6b46 Author: Duncan Coutts <[email protected]> Date: Wed Feb 13 19:33:46 2008 +0000 Use setupMessage for consistency in downloading message >--------------------------------------------------------------- cabal-install/Hackage/Fetch.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cabal-install/Hackage/Fetch.hs b/cabal-install/Hackage/Fetch.hs index d1e0dc9..64950ef 100644 --- a/cabal-install/Hackage/Fetch.hs +++ b/cabal-install/Hackage/Fetch.hs @@ -36,7 +36,7 @@ import Hackage.HttpUtils (getHTTP) import Distribution.Package (showPackageId) import Distribution.Simple.Compiler (Compiler, PackageDB) import Distribution.Simple.Program (ProgramConfiguration) -import Distribution.Simple.Utils (die, notice, debug) +import Distribution.Simple.Utils (die, notice, debug, setupMessage) import Distribution.Verbosity (Verbosity) import Data.Monoid (Monoid(mconcat)) @@ -122,7 +122,7 @@ fetchPackage verbosity pkg if fetched then do notice verbosity $ "'" ++ showPackageId (pkgInfoId pkg) ++ "' is cached." return (packageFile pkg) - else do notice verbosity $ "Downloading '" ++ showPackageId (pkgInfoId pkg) ++ "'..." + else do setupMessage verbosity "Downloading" (pkgInfoId pkg) downloadPackage verbosity pkg -- |Fetch a list of packages and their dependencies. _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
