From 380fa067201da45534db0e5945126dff594382c9 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 6 Nov 2011 16:37:50 -0800 Subject: Further cleanup of Biblio. --- src/Text/Pandoc/Biblio.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Biblio.hs') 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] -- cgit v1.2.3