Improve the cabal update notice

gentoo-haskell · Feb 9, 2009 · eec0fc9 · eec0fc9
1 parent eeb4f76
commit eec0fc9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Distribution/Client/Update.hs b/Distribution/Client/Update.hs
@@ -48,8 +48,8 @@ updateRepo :: Verbosity -> Repo -> IO ()
 updateRepo verbosity repo = case repoKind repo of
   Right LocalRepo -> return ()
   Left remoteRepo -> do
-    notice verbosity $ "Downloading package list from server '"
-                    ++ show (remoteRepoURI remoteRepo) ++ "'"
+    notice verbosity $ "Downloading the latest package list from "
+                    ++ remoteRepoName remoteRepo
     indexPath <- downloadIndex verbosity remoteRepo (repoLocalDir repo)
     BS.writeFileAtomic (dropExtension indexPath) . GZip.decompress
                                                =<< BS.readFile indexPath