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

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/05faf40e5d91b274a3296d0bdd9d6ea7860698cc

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

commit 05faf40e5d91b274a3296d0bdd9d6ea7860698cc
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)