diff options
| -rw-r--r-- | site.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |