pass pattern to postList

1 files changed, 4 insertions, 4 deletions

diff --git a/site.hs b/site.hs
index 3fd4a94..a259816 100644
--- a/site.hs
+++ b/site.hs
@@ -80,7 +80,7 @@ main = hakyllWith config $ do
       compile $ do
         let archiveCtx =
               constField "title" title `mappend`
-              field "posts" (\_ -> postList recentFirst) `mappend`
+              field "posts" (\_ -> postList "posts/*.markdown" recentFirst) `mappend`
               defaultContext
 
         makeItem ""
@@ -132,9 +132,9 @@ postFeed renderer = do
     renderer myFeedConfiguration feedCtx posts
 
 --------------------------------------------------------------------------------
-postList :: ([Item String] -> Compiler [Item String]) -> Compiler String
-postList sortFilter = do
-  posts   <- sortFilter =<< loadAll ("posts/*.markdown" .&&. hasNoVersion)
+postList :: Pattern -> ([Item String] -> Compiler [Item String]) -> Compiler String
+postList pattern sortFilter = do
+  posts   <- sortFilter =<< loadAll (pattern .&&. hasNoVersion)
   itemTpl <- loadBody "templates/post-item.html"
   list    <- applyTemplateList itemTpl postCtx posts
   return list