Send body over

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