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