[commit: Cabal] master: Use setupMessage for consistency in downloading message (f3f07d2)

[Paolo Capriotti]

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 <duncan at haskell.org>
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.