@@ -24,7 +24,7 @@ module Hakyll.Web.Feed
2424
2525
2626--------------------------------------------------------------------------------
27−import Control.Monad (forM, (<=<))
27+import Control.Monad ((<=<))
2828import Data.Monoid (mconcat)
2929
3030
@@ -34,6 +34,7 @@ import Hakyll.Core.Compiler.Internal
3434import Hakyll.Core.Item
3535import Hakyll.Web.Template
3636import Hakyll.Web.Template.Context
37+import Hakyll.Web.Template.List
3738import Hakyll.Web.Template.Read
3839
3940
@@ -69,8 +70,7 @@ renderFeed feedPath itemPath config itemContext items = do
6970 feedTpl <- compilerUnsafeIO $ loadTemplate feedPath
7071 itemTpl <- compilerUnsafeIO $ loadTemplate itemPath
7172
72− items' <- forM items $ applyTemplate itemTpl itemContext'
73− body <- makeItem $ concat $ map itemBody items'
73+ body <- makeItem =<< applyTemplateList itemTpl itemContext' items
7474 applyTemplate feedTpl feedContext body
7575 where
7676 -- Auxiliary: load a template from a datafile