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