diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-02-06 16:04:18 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-02-06 16:04:18 +0100 |
| commit | de55d035142c059a974e9d2348d7dc9302951039 (patch) | |
| tree | 6f69c078d56f107be223f4bb8e157b66fad0ce11 /src/Hakyll/Web/Pandoc | |
| parent | 96e8736655f18b79fcdcbad5cda8e11bb2827ac8 (diff) | |
| download | hakyll-de55d035142c059a974e9d2348d7dc9302951039.tar.gz | |
Bump pandoc dependency to 1.9
Diffstat (limited to 'src/Hakyll/Web/Pandoc')
| -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 |