@@ -43,12 +43,12 @@ import Control.Monad
44-- | Process a 'Pandoc' document by adding citations formatted
44-- | Process a 'Pandoc' document by adding citations formatted
45-- according to a CSL style, using 'citeproc' from citeproc-hs.
45-- according to a CSL style, using 'citeproc' from citeproc-hs.
46−processBiblio :: FilePath -> Maybe FilePath -> [Reference] -> Pandoc
46+processBiblio :: String -> Maybe FilePath -> [Reference] -> Pandoc
47 -> IO Pandoc
47 -> IO Pandoc
48−processBiblio cslfile abrfile r p
48+processBiblio cslStr abrfile r p
49 = if null r then return p
49 = if null r then return p
51− csl <- readCSLFile cslfile
51+ csl <- parseCSL cslStr
52 abbrevs <- case abrfile of
52 abbrevs <- case abrfile of
53 Just f -> readJsonAbbrevFile f
53 Just f -> readJsonAbbrevFile f
54 Nothing -> return []
54 Nothing -> return []