@@ -379,10 +379,11 @@ uri = try $ do
380 return $ '(' : res ++ ")"
380 return $ '(' : res ++ ")"
381 str <- liftM concat $ many1 $ inParens <|> count 1 (innerPunct <|> uriChar)
381 str <- liftM concat $ many1 $ inParens <|> count 1 (innerPunct <|> uriChar)
382+ str' <- option str $ char '/' >> return (str ++ "/")
382 -- now see if they amount to an absolute URI
383 -- now see if they amount to an absolute URI
383− case parseURI (escapeURI str) of
384+ case parseURI (escapeURI str') of
384 Just uri' -> if uriScheme uri' `elem` protocols
385 Just uri' -> if uriScheme uri' `elem` protocols
385− then return (str, show uri')
386+ then return (str', show uri')
386 else fail "not a URI"
387 else fail "not a URI"
387 Nothing -> fail "not a URI"
388 Nothing -> fail "not a URI"