[commit: packages/Cabal] ghc-head: Display a more user friendly message. (8b52891)

[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=8b52891300aa494b773ed1c4aa5c948262358ecd

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

commit 8b52891300aa494b773ed1c4aa5c948262358ecd
Author: Thomas Dziedzic <gostrc at gmail.com>
Date:   Wed May 22 00:52:37 2013 +0000

    Display a more user friendly message.
    
    When the local and remote repositories match.


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

8b52891300aa494b773ed1c4aa5c948262358ecd
 cabal-install/Distribution/Client/HttpUtils.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
index 154baf4..e4e0180 100644
--- a/cabal-install/Distribution/Client/HttpUtils.hs
+++ b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -102,7 +102,7 @@ downloadURI verbosity uri path = do
         Left  err -> Left err
         Right rsp -> case rspCode rsp of
           (2,0,0) -> Right rsp
-          (3,0,4) -> Left . ErrorMisc $ "Repo ETag matches. Nothing to do."
+          (3,0,4) -> Left . ErrorMisc $ "Skipping download: Local and remote repositories match."
           (a,b,c) -> Left . ErrorMisc $ "Failed to download " ++ show uri ++ " : " ++ err
             where
               err = "Unsucessful HTTP code: " ++ concatMap show [a,b,c]