diff options
author | John MacFarlane <jgm@berkeley.edu> | 2020-11-25 09:08:51 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2020-11-25 09:10:10 -0800 |
commit | 815976d5378398933322006e78d140bb8de6eb80 (patch) | |
tree | 390e230cc92849d576b8b4a2a472bec43cf276f9 /src/Text/Pandoc/Citeproc.hs | |
parent | c6f2663a237897a7310d30b825dc5ad8c6bedd3e (diff) | |
download | pandoc-815976d5378398933322006e78d140bb8de6eb80.tar.gz |
Fix truncation of `[Citation]` list in `Cite` inside footnotes...
This affected author-in-text citations in footnotes.
It didn't cause problems for the printed output, but for
filters that expected the citation id and other information.
Closes #6890.
Diffstat (limited to 'src/Text/Pandoc/Citeproc.hs')
-rw-r--r-- | src/Text/Pandoc/Citeproc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs index afcb2de5b..a48f97c3b 100644 --- a/src/Text/Pandoc/Citeproc.hs +++ b/src/Text/Pandoc/Citeproc.hs @@ -527,9 +527,9 @@ deNote (Note bs:rest) = go [] = [] go (Cite (c:cs) ils : zs) | citationMode c == AuthorInText - = Cite cs (concatMap (noteAfterComma (needsPeriod zs)) ils) : go zs + = Cite (c:cs) (concatMap (noteAfterComma (needsPeriod zs)) ils) : go zs | otherwise - = Cite cs (concatMap noteInParens ils) : go zs + = Cite (c:cs) (concatMap noteInParens ils) : go zs go (x:xs) = x : go xs needsPeriod [] = True needsPeriod (Str t:_) = case T.uncons t of |