[commit: Cabal] master: allow tilde in hackage server URIs (f3b54e0)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f3b54e031e73505a359e0f12f8e1d22bd5cdcbf2

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

commit f3b54e031e73505a359e0f12f8e1d22bd5cdcbf2
Author: Duncan Coutts <duncan at haskell.org>
Date:   Fri Aug 15 14:27:35 2008 +0000

    allow tilde in hackage server URIs
    report and fix from Nicolas Frisby <nicolas.frisby at gmail.com>
    (code had changed slightly so the original patch didn't apply cleanly)

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

 cabal-install/Distribution/Client/Config.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/cabal-install/Distribution/Client/Config.hs b/cabal-install/Distribution/Client/Config.hs
index 8234c27..c866f2a 100644
--- a/cabal-install/Distribution/Client/Config.hs
+++ b/cabal-install/Distribution/Client/Config.hs
@@ -296,7 +296,7 @@ parseRepo :: Parse.ReadP r RemoteRepo
 parseRepo = do name <- Parse.munch1 (\c -> isAlphaNum c || c `elem` "_-.")
                Parse.char ':'
                uriStr <- Parse.munch1 (\c -> isAlphaNum c
-                                          || c `elem` "+-=._/*()@'$:;&!?")
+                                          || c `elem` "+-=._/*()@'$:;&!?~")
                uri <- maybe Parse.pfail return (parseAbsoluteURI uriStr)
                return $ RemoteRepo {
                  remoteRepoName = name,