diff options
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index 534fc8a8c..723c7ed10 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -68,9 +68,9 @@ processCite s cs (Cite t _) = case M.lookup t cs of Just x -> if isTextualCitation t then renderPandoc s (take 1 x) ++ - case x of - (_:xs) -> [Space, Cite t $ renderPandoc s xs] - _ -> [] + case drop 1 x of + [] -> [] + ys -> [Space, Cite t $ renderPandoc s ys] else [Cite t $ renderPandoc s x] Nothing -> [Str ("Error processing " ++ show t)] processCite _ _ x = [x] |