@@ -67,7 +67,7 @@ pageReadPandocBiblio state csl refs = proc page -> do
6767 state' = state {stateCitations = stateCitations state ++ cits}
6868 pandocPage <- pageReadPandocWithA -< (state', page)
6969 let pandoc = pageBody pandocPage
70− pandoc' <- unsafeCompiler (tuc processBiblio) -< (csl', refs', pandoc)
70+ pandoc' <- unsafeCompiler processBiblio' -< (csl', refs', pandoc)
7171 returnA -< pandocPage {pageBody = pandoc'}
7272 where
73− tuc f (x, y, z) = f x y z
73+ processBiblio' (c, r, p) = processBiblio c Nothing r p