error in index route

This commit is contained in:
nek0 2016-03-03 23:33:48 +01:00
parent 089cce4f27
commit 091af5f9c7

View file

@ -34,7 +34,7 @@ main = do
defaultContext defaultContext
match "index.md" $ do match "index.md" $ do
route idRoute route $ 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) <>