Commit c9ed01b0 authored by Sergei Trofimovich's avatar Sergei Trofimovich
Browse files

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

parent 2e94bdd4
......@@ -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 {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment