diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-01-09 15:29:27 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-01-09 15:29:27 -0800 |
| commit | e3f01235e9966d662bb956dbdc66c0f64c759d0a (patch) | |
| tree | dbbe15d2121a9e37e12cae3e3548deffc76ebea9 /src/Text/Pandoc | |
| parent | 87e16563f4513c22a3656707550736d74246cd5e (diff) | |
| download | pandoc-e3f01235e9966d662bb956dbdc66c0f64c759d0a.tar.gz | |
HTML writer: Fixed footnote backlinks with --id-prefix.
Closes #4235.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index e81338550..5d5c88dd9 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -1150,7 +1150,7 @@ blockListToNote :: PandocMonad m => WriterOptions -> String -> [Block] -> StateT 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 = [Link ("",["footnote-back"],[]) [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])] + let backlink = [Link ("",["footnote-back"],[]) [Str "↩"] ("#" ++ "fnref" ++ ref,[])] blocks' = if null blocks then [] else let lastBlock = last blocks |