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
|
route idRoute
|
||||||
compile $ do
|
compile $ do
|
||||||
posts <- fmap (take 5) . recentFirst =<< loadAllSnapshots "blog/*" "content"
|
posts <- fmap (take 5) . recentFirst =<< loadAllSnapshots "blog/*" "content"
|
||||||
let feedCtx = postCtx `mappend`
|
let feedCtx = postCtx `mappend` bodyField "description"
|
||||||
constField "description" "This is the post description"
|
|
||||||
renderAtom feedConfig feedCtx posts
|
renderAtom feedConfig feedCtx posts
|
||||||
match "templates/*" $ compile templateBodyCompiler
|
match "templates/*" $ compile templateBodyCompiler
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user