diff options
Diffstat (limited to 'src/Text/Pandoc')
-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 |