git.iko.soy/hakyll
on master help sign in
Use list functionality for Feed
815c265Jasper Van der Jeugt
src/Hakyll/Web/Feed.hs+3−3
compare with master
unifiedsplit
@@ -24,7 +24,7 @@ module Hakyll.Web.Feed
24
24
25
25
26--------------------------------------------------------------------------------
26--------------------------------------------------------------------------------
27−import Control.Monad (forM, (<=<))
27+import Control.Monad ((<=<))
28import Data.Monoid (mconcat)
28import Data.Monoid (mconcat)
29
29
30
30
@@ -34,6 +34,7 @@ import Hakyll.Core.Compiler.Internal
34import Hakyll.Core.Item
34import Hakyll.Core.Item
35import Hakyll.Web.Template
35import Hakyll.Web.Template
36import Hakyll.Web.Template.Context
36import Hakyll.Web.Template.Context
37+import Hakyll.Web.Template.List
37import Hakyll.Web.Template.Read
38import Hakyll.Web.Template.Read
38
39
39
40
@@ -69,8 +70,7 @@ renderFeed feedPath itemPath config itemContext items = do
69 feedTpl <- compilerUnsafeIO $ loadTemplate feedPath
70 feedTpl <- compilerUnsafeIO $ loadTemplate feedPath
70 itemTpl <- compilerUnsafeIO $ loadTemplate itemPath
71 itemTpl <- compilerUnsafeIO $ loadTemplate itemPath
71
72
72− items' <- forM items $ applyTemplate itemTpl itemContext'
73+ body <- makeItem =<< applyTemplateList itemTpl itemContext' items
73− body <- makeItem $ concat $ map itemBody items'
74 applyTemplate feedTpl feedContext body
74 applyTemplate feedTpl feedContext body
75 where
75 where
76 -- Auxiliary: load a template from a datafile
76 -- Auxiliary: load a template from a datafile