This commit is contained in:
nek0 2017-11-10 16:47:02 +01:00
parent bb565e0ff8
commit 3abe426e37

View file

@ -62,7 +62,7 @@ main = do
posts <- fmap (take 5) . recentFirst =<< loadAll "site/posts/*" posts <- fmap (take 5) . recentFirst =<< loadAll "site/posts/*"
let indexCtx = listField "posts" postCtx (return posts) <> let indexCtx = listField "posts" postCtx (return posts) <>
constField "title" "Home" <> constField "title" "Home" <>
defaultConteontext defaultContext
getResourceBody getResourceBody
>>= applyAsTemplate indexCtx >>= applyAsTemplate indexCtx
>>= renderPandoc >>= renderPandoc