Send body over
This commit is contained in:
parent
55b06f61ca
commit
f90acb1140
3
site.hs
3
site.hs
@ -97,8 +97,7 @@ main = hakyllWith config $ do
|
||||
route idRoute
|
||||
compile $ do
|
||||
posts <- fmap (take 5) . recentFirst =<< loadAllSnapshots "blog/*" "content"
|
||||
let feedCtx = postCtx `mappend`
|
||||
constField "description" "This is the post description"
|
||||
let feedCtx = postCtx `mappend` bodyField "description"
|
||||
renderAtom feedConfig feedCtx posts
|
||||
match "templates/*" $ compile templateBodyCompiler
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user