aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorEric Seidel <gridaphobe@gmail.com>2011-12-24 21:49:38 -0600
committerEric Seidel <gridaphobe@gmail.com>2011-12-24 21:49:38 -0600
commit6cd20c98fd80f4c8fcdd4796f356e06757e36746 (patch)
tree51856da562bf6eb015da09ccfe17a26e57b78ad7 /src
parentcc18291baf863a59fb17a63c5c09d69da8c86b01 (diff)
downloadpandoc-6cd20c98fd80f4c8fcdd4796f356e06757e36746.tar.gz
change reference backlink from RawInline to Link so it gets rendered properly when using the xmlhtml package
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 96fa5e906..f2208ff4a 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -663,8 +663,7 @@ blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
blockListToNote opts ref blocks =
-- If last block is Para or Plain, include the backlink at the end of
-- that block. Otherwise, insert a new Plain block with the backlink.
- let backlink = [RawInline "html" $ " <a href=\"#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref ++
- "\" class=\"footnoteBackLink\">↩</a>"]
+ let backlink = [Link [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])]
blocks' = if null blocks
then []
else let lastBlock = last blocks