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