@@ -593,7 +593,7 @@ uri = try $ do
593 -- http://en.wikipedia.org/wiki/State_of_emergency_(disambiguation)
593 -- http://en.wikipedia.org/wiki/State_of_emergency_(disambiguation)
594 -- as a URL, while NOT picking up the closing paren in
594 -- as a URL, while NOT picking up the closing paren in
595 -- (http://wikipedia.org). So we include balanced parens in the URL.
595 -- (http://wikipedia.org). So we include balanced parens in the URL.
596− let isWordChar c = isAlphaNum c || c `elem` "#$%*+/@\\_-&="
596+ let isWordChar c = isAlphaNum c || c `elem` "#$%+/@\\_-&="
597 let wordChar = satisfy isWordChar
597 let wordChar = satisfy isWordChar
598 let percentEscaped = try $ char '%' >> skipMany1 (satisfy isHexDigit)
598 let percentEscaped = try $ char '%' >> skipMany1 (satisfy isHexDigit)
599 let entity = () <$ characterReference
599 let entity = () <$ characterReference