Example site preprocess shadowing

Zekt · Jan 8, 2013 · 5948e19 · 5948e19
1 parent 50371ab
commit 5948e19
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/data/example/site.hs b/data/example/site.hs
@@ -65,8 +65,8 @@ postCtx =
 
 --------------------------------------------------------------------------------
 postList :: ([Item String] -> [Item String]) -> Compiler String
-postList preprocess = do
-    posts   <- preprocess <$> loadAll "posts/*"
+postList sortFilter = do
+    posts   <- sortFilter <$> loadAll "posts/*"
     itemTpl <- loadBody "templates/post-item.html"
     list    <- applyTemplateList itemTpl postCtx posts
     return list