@@ -415,7 +415,7 @@ uri = try $ do
415 let uriChunk = skipMany1 wordChar
415 let uriChunk = skipMany1 wordChar
416 <|> percentEscaped
416 <|> percentEscaped
417 <|> entity
417 <|> entity
418− <|> (try $ punct >> notFollowedBy (satisfy $ not . isWordChar))
418+ <|> (try $ punct >> lookAhead (satisfy isWordChar) >> return ())
419 str <- snd `fmap` withRaw (skipMany1 ( () <$
419 str <- snd `fmap` withRaw (skipMany1 ( () <$
420 (enclosed (char '(') (char ')') uriChunk
420 (enclosed (char '(') (char ')') uriChunk
421 <|> enclosed (char '{') (char '}') uriChunk
421 <|> enclosed (char '{') (char '}') uriChunk