@@ -421,7 +421,6 @@ uri :: Parser [Char] st (String, String)
421uri = try $ do
421uri = try $ do
422 scheme <- uriScheme
422 scheme <- uriScheme
424− -- /^[\/\w\u0080-\uffff]+|%[A-Fa-f0-9]+|&#?\w+;|(?:[,]+|[\S])[%&~\w\u0080-\uffff]/
425 -- We allow punctuation except at the end, since
424 -- We allow punctuation except at the end, since
426 -- we don't want the trailing '.' in 'http://google.com.' We want to allow
425 -- we don't want the trailing '.' in 'http://google.com.' We want to allow
427 -- http://en.wikipedia.org/wiki/State_of_emergency_(disambiguation)
426 -- http://en.wikipedia.org/wiki/State_of_emergency_(disambiguation)