[commit: Cabal] master: Use proxy port number rather than ignoring it (48b440a)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/48b440a692cd74e3a7f990bcc34fe83b45b9cdb6

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

commit 48b440a692cd74e3a7f990bcc34fe83b45b9cdb6
Author: Duncan Coutts <duncan at haskell.org>
Date:   Tue Jan 15 15:10:33 2008 +0000

    Use proxy port number rather than ignoring it

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

 cabal-install/Hackage/HttpUtils.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/cabal-install/Hackage/HttpUtils.hs b/cabal-install/Hackage/HttpUtils.hs
index 8964478..166bd2e 100644
--- a/cabal-install/Hackage/HttpUtils.hs
+++ b/cabal-install/Hackage/HttpUtils.hs
@@ -58,7 +58,7 @@ proxy verbosity = do
 uri2proxy :: URI -> Maybe Proxy
 uri2proxy uri at URI{ uriScheme = "http:"
                  , uriAuthority = Just (URIAuth auth' host port)
-                 } = Just (Proxy host auth)
+                 } = Just (Proxy (host ++ port) auth)
   where auth = if null auth'
                  then Nothing
                  else Just (AuthBasic "" usr pwd uri)