From 815c265ac6135e524a4bec06f90e358b44acedd2 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 20 Nov 2012 22:00:16 +0100 Subject: Use list functionality for Feed --- src/Hakyll/Web/Feed.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Hakyll') 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 -- cgit v1.2.3