Use list functionality for Feed

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Hakyll/Web/Feed.hs b/src/Hakyll/Web/Feed.hs
index 01ba0e1..da2fd5d 100644
--- a/src/Hakyll/Web/Feed.hs
+++ b/src/Hakyll/Web/Feed.hs
@@ -24,7 +24,7 @@ module Hakyll.Web.Feed
 
 
 --------------------------------------------------------------------------------
-import           Control.Monad                 (forM, (<=<))
+import           Control.Monad                 ((<=<))
 import           Data.Monoid                   (mconcat)
 
 
@@ -34,6 +34,7 @@ import           Hakyll.Core.Compiler.Internal
 import           Hakyll.Core.Item
 import           Hakyll.Web.Template
 import           Hakyll.Web.Template.Context
+import           Hakyll.Web.Template.List
 import           Hakyll.Web.Template.Read
 
 
@@ -69,8 +70,7 @@ renderFeed feedPath itemPath config itemContext items = do
     feedTpl <- compilerUnsafeIO $ loadTemplate feedPath
     itemTpl <- compilerUnsafeIO $ loadTemplate itemPath
 
-    items' <- forM items $ applyTemplate itemTpl itemContext'
-    body   <- makeItem $ concat $ map itemBody items'
+    body <- makeItem =<< applyTemplateList itemTpl itemContext' items
     applyTemplate feedTpl feedContext body
   where
     -- Auxiliary: load a template from a datafile