From ca98cd8f18a508b491b27c6dcb609f8d92623363 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 6 Nov 2011 17:28:39 -0800
Subject: Biblio: Put whole author-in-text citation in a Cite.

Previously just the date and other info went in the Cite.
---
 src/Text/Pandoc/Biblio.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Text/Pandoc/Biblio.hs')

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]
-- 
cgit v1.2.3