Biblio: Put whole author-in-text citation in a Cite.

Previously just the date and other info went in the Cite.

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]