Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

RST reader: Remove duplicate 'http' in PEP links

Browse source 
The generated link to PEPs had a duplicate 'http://' in its URL.
This commit is contained in:
Albert Krewinkel 2014-04-24 12:56:25 +02:00
parent bf0c725647
commit ec24f9761c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/RST.hs
View file

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