diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Web/Pandoc/Biblio.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Hakyll/Web/Pandoc/Biblio.hs b/src/Hakyll/Web/Pandoc/Biblio.hs index 681d40a..48f7982 100644 --- a/src/Hakyll/Web/Pandoc/Biblio.hs +++ b/src/Hakyll/Web/Pandoc/Biblio.hs @@ -67,7 +67,7 @@ pageReadPandocBiblio state csl refs = proc page -> do state' = state {stateCitations = stateCitations state ++ cits} pandocPage <- pageReadPandocWithA -< (state', page) let pandoc = pageBody pandocPage - pandoc' <- unsafeCompiler (tuc processBiblio) -< (csl', refs', pandoc) + pandoc' <- unsafeCompiler processBiblio' -< (csl', refs', pandoc) returnA -< pandocPage {pageBody = pandoc'} where - tuc f (x, y, z) = f x y z + processBiblio' (c, r, p) = processBiblio c Nothing r p |