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