aboutsummaryrefslogtreecommitdiff
path: root/Text
diff options
context:
space:
mode:
Diffstat (limited to 'Text')
-rw-r--r--Text/Pandoc/Biblio.hs10
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