From 815976d5378398933322006e78d140bb8de6eb80 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 25 Nov 2020 09:08:51 -0800 Subject: 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. --- src/Text/Pandoc/Citeproc.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3