Further cleanup of Biblio.

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]