diff options
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index c824f63c5..69c1eb482 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -68,10 +68,10 @@ processCite s cs (Cite t _) = case M.lookup t cs of Just (x:xs) -> if isTextualCitation t - then renderPandoc s [x] ++ - if null xs - then [] - else [Space, Cite t $ renderPandoc s xs] + then [Cite t $ renderPandoc s [x] ++ + if null xs + then [] + else [Space, Cite t $ renderPandoc s xs]] else [Cite t $ renderPandoc s (x:xs)] _ -> [Str ("Error processing " ++ show t)] processCite _ _ x = [x] |