hodapp/blag
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small refactor

Browse Source
This commit is contained in:
Chris Hodapp 2019-10-27 23:13:46 -04:00
parent 4d0f72fd4f
commit b4ea1f4a03
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
site.hs
View File

@ -144,17 +144,17 @@ main = do
match "templates/*" $ compile templateCompiler
let compileFeed f = compile $ do
posts <- recentFirst =<< loadAllSnapshots ("posts/*" .&&. complement "posts/*.lhs") "feedContent"
f feedConfiguration feedCtx posts
create ["atom.xml"] $ do
route idRoute
compile $ do
posts <- recentFirst =<< loadAllSnapshots ("posts/*" .&&. complement "posts/*.lhs") "feedContent"
renderAtom feedConfiguration feedCtx posts
compileFeed renderAtom
create ["rss.xml"] $ do
route idRoute
compile $ do
posts <- recentFirst =<< loadAllSnapshots ("posts/*" .&&. complement "posts/*.lhs") "feedContent"
renderRss feedConfiguration feedCtx posts
compileFeed renderRss
tagsRules tags $ \tag pattern -> do
let title = "Posts tagged \"" ++ tag ++ "\""