fix index creation

This commit is contained in:
nek0 2017-12-03 04:00:30 +01:00
parent 5c11de8399
commit 4525c7c08b

View file

@ -43,7 +43,7 @@ main =
defaultContext defaultContext
match "site/index.md" $ do match "site/index.md" $ do
route $ setExtension "html" route $ myRoute `composeRoutes` setExtension "html"
compile $ do compile $ do
posts <- fmap (take 5) . recentFirst =<< loadAll "posts/*" posts <- fmap (take 5) . recentFirst =<< loadAll "posts/*"
let indexCtx = listField "posts" (postCtx tags) (return posts) <> let indexCtx = listField "posts" (postCtx tags) (return posts) <>