@@ -43,9 +43,10 @@ import Control.Monad.State
4343
4444-- | Process a 'Pandoc' document by adding citations formatted
4545-- according to a CSL style, using 'citeproc' from citeproc-hs.
46−processBiblio :: Style -> [Reference] -> Pandoc -> Pandoc
47−processBiblio _ [] p = p
48−processBiblio style r p =
46+processBiblio :: Maybe Style -> [Reference] -> Pandoc -> Pandoc
47+processBiblio Nothing _ p = p
48+processBiblio _ [] p = p
49+processBiblio (Just style) r p =
4950 let p' = evalState (bottomUpM setHash p) 1
5051 grps = queryWith getCitation p'
5152 result = citeproc procOpts style r (setNearNote style $