@@ -663,8 +663,7 @@ blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
663blockListToNote opts ref blocks =
663blockListToNote opts ref blocks =
664 -- If last block is Para or Plain, include the backlink at the end of
664 -- If last block is Para or Plain, include the backlink at the end of
665 -- that block. Otherwise, insert a new Plain block with the backlink.
665 -- that block. Otherwise, insert a new Plain block with the backlink.
666− let backlink = [RawInline "html" $ " <a href=\"#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref ++
666+ let backlink = [Link [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])]
667− "\" class=\"footnoteBackLink\">↩</a>"]
668 blocks' = if null blocks
667 blocks' = if null blocks
670 else let lastBlock = last blocks
669 else let lastBlock = last blocks