diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-29 15:09:04 -0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-29 15:09:25 -0400 |
| commit | c78cc02abf793539e4bcd6c1037d7007946103ca (patch) | |
| tree | b8abf5c7d4f40604fbae2e841ead7b2415e7aad6 /src/Text | |
| parent | b75a5b631b08871ea58a0c464e3cfef2e436f930 (diff) | |
| download | pandoc-c78cc02abf793539e4bcd6c1037d7007946103ca.tar.gz | |
Biblio: csl parameter now a string rather than a filepath.
API change.
Diffstat (limited to 'src/Text')
| -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 eb82f10b2..f1fbb28cb 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -43,12 +43,12 @@ import Control.Monad -- | Process a 'Pandoc' document by adding citations formatted -- according to a CSL style, using 'citeproc' from citeproc-hs. -processBiblio :: FilePath -> Maybe FilePath -> [Reference] -> Pandoc +processBiblio :: String -> Maybe FilePath -> [Reference] -> Pandoc -> IO Pandoc -processBiblio cslfile abrfile r p +processBiblio cslStr abrfile r p = if null r then return p else do - csl <- readCSLFile cslfile + csl <- parseCSL cslStr abbrevs <- case abrfile of Just f -> readJsonAbbrevFile f Nothing -> return [] |