This commit is contained in:
nek0 2016-03-03 22:56:45 +01:00
parent b32b6367f1
commit 04ca1eded1

View file

@ -131,6 +131,7 @@ main = do
>>= renderRss feedConf feedCtx >>= renderRss feedConf feedCtx
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
postCtx :: Tags -> Context String postCtx :: Tags -> Context String
postCtx tags = mconcat postCtx tags = mconcat
[ modificationTimeField "mtime" "%U" [ modificationTimeField "mtime" "%U"
@ -140,6 +141,7 @@ postCtx tags = mconcat
] ]
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
feedCtx :: Context String feedCtx :: Context String
feedCtx = mconcat feedCtx = mconcat
[ bodyField "description" [ bodyField "description"