diff options
| -rw-r--r-- | hakyll.cabal | 2 | ||||
| -rw-r--r-- | src/Hakyll/Web/Pandoc/Biblio.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/hakyll.cabal b/hakyll.cabal index 9a41882..c82ade2 100644 --- a/hakyll.cabal +++ b/hakyll.cabal @@ -72,7 +72,7 @@ Library mtl >= 1 && < 3.0, old-locale >= 1.0 && < 2.0, old-time >= 1.0 && < 1.3, - pandoc >= 1.6 && < 2.0, + pandoc >= 1.9 && < 1.10, parsec >= 3.0 && < 3.2, process >= 1.0 && < 1.4, regex-base >= 0.93 && < 1.0, 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 |