summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Hakyll/Web/Feed.hs6
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