@@ -71,7 +71,10 @@ processCite s cs (i:is)
71 addNt t x = if null x then [] else [Cite t $ renderPandoc s x]
71 addNt t x = if null x then [] else [Cite t $ renderPandoc s x]
72 process t = case M.lookup t cs of
72 process t = case M.lookup t cs of
73 Just x -> if isTextualCitation t && x /= []
73 Just x -> if isTextualCitation t && x /= []
74− then renderPandoc s [head x] ++ [Space] ++ addNt t (tail x)
74+ then renderPandoc s [head x] ++
76+ then Space : addNt t (tail x)
75 else [Cite t $ renderPandoc s x]
78 else [Cite t $ renderPandoc s x]
76 Nothing -> [Str ("Error processing " ++ show t)]
79 Nothing -> [Str ("Error processing " ++ show t)]