Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/fc187bc756d0df5a7c1d803af204d0f12415f1f7 >--------------------------------------------------------------- commit fc187bc756d0df5a7c1d803af204d0f12415f1f7 Author: Duncan Coutts <[email protected]> Date: Wed Dec 3 00:44:27 2008 +0000 Mention where files get downloaded to at verbosity level verbose >--------------------------------------------------------------- cabal-install/Distribution/Client/Fetch.hs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/cabal-install/Distribution/Client/Fetch.hs b/cabal-install/Distribution/Client/Fetch.hs index d3ed044..e285a5e 100644 --- a/cabal-install/Distribution/Client/Fetch.hs +++ b/cabal-install/Distribution/Client/Fetch.hs @@ -81,7 +81,8 @@ downloadURI verbosity path uri = do Left err -> return (Just err) Right rsp | rspCode rsp == (2,0,0) - -> writeFileAtomic path (rspBody rsp) + -> do info verbosity ("Downloaded to " ++ path) + writeFileAtomic path (rspBody rsp) --FIXME: check the content-length header matches the body length. --TODO: stream the download into the file rather than buffering the whole -- thing in memory. _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
