[commit: Cabal] master: Mention where files get downloaded to at verbosity level verbose (fc187bc)

[Ian Lynagh]

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