myPandoc function removed

This commit is contained in:
nek0 2016-03-04 00:21:45 +01:00
parent 00a6dc0dda
commit 961c26a831
1 changed files with 1 additions and 7 deletions

View File

@ -66,7 +66,7 @@ main = do
paginateRules pages $ \num _ -> do
route $ setExtension "html"
compile $ do
compiled <- getResourceBody >>= myPandoc
compiled <- getResourceBody >>= renderPandoc
let pageCtx = paginateContext pages num
let ctx = (postCtx tags) <> pageCtx
full <- loadAndApplyTemplate "templates/post.html" ctx compiled
@ -154,9 +154,3 @@ config :: Configuration
config = defaultConfiguration
{ deployCommand = "rsync --del --checksum -ave 'ssh -p 5555' \\_site/* nek0@chelnok.de:/home/nek0/www/blog"
}
--------------------------------------------------------------------------------
myPandoc :: Item String -> Compiler (Item String)
myPandoc item = do
renderPandocWith defaultHakyllReaderOptions defaultHakyllWriterOptions item