Send body over
This commit is contained in:
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
|
||||
|
||||
|
Reference in New Issue
Block a user