[commit: Cabal] master: Print download URL with -v, to allow debugging download errors. (fc00ce4)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/fc00ce418ff7af87c036620b0139a9a64b6074b9

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

commit fc00ce418ff7af87c036620b0139a9a64b6074b9
Author: bjorn <bjorn at bringert.net>
Date:   Sun May 20 21:56:35 2007 +0000

    Print download URL with -v, to allow debugging download errors.

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

 .../src/Network/Hackage/CabalInstall/Fetch.hs      |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/cabal-install/src/Network/Hackage/CabalInstall/Fetch.hs b/cabal-install/src/Network/Hackage/CabalInstall/Fetch.hs
index 3f41e44..83f4d0a 100644
--- a/cabal-install/src/Network/Hackage/CabalInstall/Fetch.hs
+++ b/cabal-install/src/Network/Hackage/CabalInstall/Fetch.hs
@@ -87,7 +87,8 @@ downloadFile path url
 -- Downloads a package to [config-dir/packages/package-id] and returns the path to the package.
 downloadPackage :: ConfigFlags -> PackageIdentifier -> String -> IO String
 downloadPackage cfg pkg url
-    = do mbError <- downloadFile path url
+    = do message (configOutputGen cfg) 2 $ "GET " ++ show url
+         mbError <- downloadFile path url
          case mbError of
            Just err -> fail $ printf "Failed to download '%s': %s" (showPackageId pkg) (show err)
            Nothing -> return path