@@ -43,9 +43,10 @@ import Control.Monad.State
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 :: Style -> [Reference] -> Pandoc -> Pandoc
46+processBiblio :: Maybe Style -> [Reference] -> Pandoc -> Pandoc
47−processBiblio _ [] p = p
47+processBiblio Nothing _ p = p
48+processBiblio _ [] p = p
48−processBiblio style r p =
49+processBiblio (Just style) r p =
49 let p' = evalState (bottomUpM setHash p) 1
50 let p' = evalState (bottomUpM setHash p) 1
50 grps = queryWith getCitation p'
51 grps = queryWith getCitation p'
51 result = citeproc procOpts style r (setNearNote style $
52 result = citeproc procOpts style r (setNearNote style $