diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-04-25 08:08:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-04-25 08:08:00 -0700 |
| commit | 60297089f642818599b925c5e3bd7ecdfbf93c1d (patch) | |
| tree | 5466dcff5cd5529eadca899577da4c918d85f228 /src/Text/Pandoc/Readers/RST.hs | |
| parent | cbeb3bb2132908b76e3a83e61ff99418ebdf83b4 (diff) | |
| parent | b09412d852880a0c8e18e1cab9b0ce33f0e0e8a2 (diff) | |
| download | pandoc-60297089f642818599b925c5e3bd7ecdfbf93c1d.tar.gz | |
Merge pull request #1265 from tarleb/org-links
Improvements handling of internal links
Diffstat (limited to 'src/Text/Pandoc/Readers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index a574f343a..7785861cc 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -1005,7 +1005,7 @@ renderRole contents fmt role attr = case role of where rfcUrl = "http://www.faqs.org/rfcs/rfc" ++ rfcNo ++ ".html" pepLink pepNo = B.link pepUrl ("PEP " ++ pepNo) $ B.str ("PEP " ++ 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 end = many1Till (letter <|> char '-') end |