[commit: Cabal] : Distribution/Client/Setup.hs: suppress warning (unused variable) (87edfa8)

[Ian Lynagh]

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/87edfa83905b77d7a48eed278e1ab482846e6b17

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

commit 87edfa83905b77d7a48eed278e1ab482846e6b17
Author: Sergei Trofimovich <slyfox at community.haskell.org>
Date:   Sun Dec 20 21:44:48 2009 +0000

    Distribution/Client/Setup.hs: suppress warning (unused variable)

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

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

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