Modified Text.Pandoc.Biblio to fit new citeproc API.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1416 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 5 insertions, 5 deletions

diff --git a/Text/Pandoc/Biblio.hs b/Text/Pandoc/Biblio.hs
index 0e6fa1908..1d93f19c1 100644
--- a/Text/Pandoc/Biblio.hs
+++ b/Text/Pandoc/Biblio.hs
@@ -45,18 +45,18 @@ processBiblio cf r p
         let groups     = queryPandoc getCite p
             result     = citeproc csl r groups
             cits_map   = zip groups (citations result)
-            biblioList = map (read . renderPandoc') (bibliography result)
-            Pandoc m b = processPandoc (processCite cits_map) p
+            biblioList = map (read . renderPandoc' csl) (bibliography result)
+            Pandoc m b = processPandoc (processCite csl cits_map) p
         return $ Pandoc m $ b ++ biblioList
 
 -- | Substitute 'Cite' elements with formatted citations.
-processCite :: [([Target],[FormattedOutput])] -> Inline -> Inline
-processCite cs il
+processCite :: Style -> [([Target],[FormattedOutput])] -> Inline -> Inline
+processCite s cs il
     | Cite t _ <- il = Cite t (process t)
     | otherwise      = il
     where
       process t = case elemIndex t (map fst cs) of
-                    Just i -> read . renderPandoc $ snd (cs !! i)
+                    Just i -> read . renderPandoc s $ snd (cs !! i)
                     Nothing -> [Str ("Error processing " ++ show t)]
 
 -- | Retrieve all citations from a 'Pandoc' docuument. To be used with