@@ -1005,7 +1005,7 @@ renderRole contents fmt role attr = case role of
1005 where rfcUrl = "http://www.faqs.org/rfcs/rfc" ++ rfcNo ++ ".html"
1005 where rfcUrl = "http://www.faqs.org/rfcs/rfc" ++ rfcNo ++ ".html"
1006 pepLink pepNo = B.link pepUrl ("PEP " ++ pepNo) $ B.str ("PEP " ++ pepNo)
1006 pepLink pepNo = B.link pepUrl ("PEP " ++ pepNo) $ B.str ("PEP " ++ pepNo)
1007 where padNo = replicate (4 - length pepNo) '0' ++ pepNo
1007 where padNo = replicate (4 - length pepNo) '0' ++ pepNo
1008− pepUrl = "http://http://www.python.org/dev/peps/pep-" ++ padNo ++ "/"
1008+ pepUrl = "http://www.python.org/dev/peps/pep-" ++ padNo ++ "/"
1010roleNameEndingIn :: RSTParser Char -> RSTParser String
1010roleNameEndingIn :: RSTParser Char -> RSTParser String
1011roleNameEndingIn end = many1Till (letter <|> char '-') end
1011roleNameEndingIn end = many1Till (letter <|> char '-') end