[commit: packages/Cabal] ghc-head: Use notice instead of putStrLn. (c10d0b5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/Cabal

On branch  : ghc-head
Link       : http://git.haskell.org/?p=packages/Cabal.git;a=commit;h=c10d0b5759b981bdeb003e1d1ca0de5c3e449caa

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

commit c10d0b5759b981bdeb003e1d1ca0de5c3e449caa
Author: Thomas Dziedzic <gostrc at gmail.com>
Date:   Wed May 22 02:42:50 2013 +0000

    Use notice instead of putStrLn.


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

c10d0b5759b981bdeb003e1d1ca0de5c3e449caa
 cabal-install/Distribution/Client/HttpUtils.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
index e9b6f1b..b98977b 100644
--- a/cabal-install/Distribution/Client/HttpUtils.hs
+++ b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -28,7 +28,7 @@ import Data.ByteString.Lazy (ByteString)
 import qualified Paths_cabal_install (version)
 import Distribution.Verbosity (Verbosity)
 import Distribution.Simple.Utils
-         ( die, info, warn, debug
+         ( die, info, warn, debug, notice
          , copyFileVerbose, writeFileAtomic )
 import Distribution.Text
          ( display )
@@ -129,7 +129,7 @@ downloadURI verbosity uri path = do
       (2,0,0) -> do
         info verbosity ("Downloaded to " ++ path)
         writeFileAtomic path $ rspBody rsp
-      (3,0,4) -> putStrLn "Skipping download: Local and remote repositories match."
+      (3,0,4) -> notice verbosity "Skipping download: Local and remote repositories match."
       (_,_,_) -> return ()
       --FIXME: check the content-length header matches the body length.
       --TODO: stream the download into the file rather than buffering the whole