diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-02-28 07:39:45 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-02-28 07:39:45 +0000 |
commit | 9be0d098b8cd266c638f40a803fbbf2f9247d6d5 (patch) | |
tree | e4ce3697589fa7ab624d44e5949656c69196c69c | |
parent | 29d2952a10583ec2d18fbe5118b32a5ec5752eb2 (diff) | |
download | pandoc-9be0d098b8cd266c638f40a803fbbf2f9247d6d5.tar.gz |
Minor changes in Text.Pandoc.Biblio.
Replaced queryPandoc w queryWith, processPandoc w processWith.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1554 788f1e2b-df1e-0410-8736-df70ead52e1b
-rw-r--r-- | src/Text/Pandoc/Biblio.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index 1d93f19c1..436eadd68 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -42,11 +42,11 @@ processBiblio cf r p else do when (null cf) $ error "Missing the needed citation style file" csl <- readCSLFile cf - let groups = queryPandoc getCite p + let groups = queryWith getCite p result = citeproc csl r groups cits_map = zip groups (citations result) biblioList = map (read . renderPandoc' csl) (bibliography result) - Pandoc m b = processPandoc (processCite csl cits_map) p + Pandoc m b = processWith (processCite csl cits_map) p return $ Pandoc m $ b ++ biblioList -- | Substitute 'Cite' elements with formatted citations. @@ -60,7 +60,7 @@ processCite s cs il Nothing -> [Str ("Error processing " ++ show t)] -- | Retrieve all citations from a 'Pandoc' docuument. To be used with --- 'queryPandoc'. +-- 'queryWith'. getCite :: Inline -> [[(String,String)]] getCite i | Cite t _ <- i = [t] | otherwise = [] |