Bump pandoc dependency to 1.9

This commit is contained in:
Jasper Van der Jeugt 2012-02-06 16:04:18 +01:00
parent 96e8736655
commit de55d03514
2 changed files with 3 additions and 3 deletions

View file

@ -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,

View file

@ -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