@@ -65,8 +65,8 @@ postCtx =
6565
6666--------------------------------------------------------------------------------
6767postList :: ([Item String] -> [Item String]) -> Compiler String
68−postList preprocess = do
69− posts <- preprocess <$> loadAll "posts/*"
68+postList sortFilter = do
69+ posts <- sortFilter <$> loadAll "posts/*"
7070 itemTpl <- loadBody "templates/post-item.html"
7171 list <- applyTemplateList itemTpl postCtx posts
7272 return list