@@ -42,11 +42,11 @@ processBiblio cf r p
4242 else do
4343 when (null cf) $ error "Missing the needed citation style file"
4444 csl <- readCSLFile cf
45− let groups = queryPandoc getCite p
45+ let groups = queryWith getCite p
4646 result = citeproc csl r groups
4747 cits_map = zip groups (citations result)
4848 biblioList = map (read . renderPandoc' csl) (bibliography result)
49− Pandoc m b = processPandoc (processCite csl cits_map) p
49+ Pandoc m b = processWith (processCite csl cits_map) p
5050 return $ Pandoc m $ b ++ biblioList
5151
5252-- | Substitute 'Cite' elements with formatted citations.
@@ -60,7 +60,7 @@ processCite s cs il
6060 Nothing -> [Str ("Error processing " ++ show t)]
6161
6262-- | Retrieve all citations from a 'Pandoc' docuument. To be used with
63−-- 'queryPandoc'.
63+-- 'queryWith'.
6464getCite :: Inline -> [[(String,String)]]
6565getCite i | Cite t _ <- i = [t]
6666 | otherwise = []