diff options
Diffstat (limited to 'src/Hakyll/Web/Feed.hs')
-rw-r--r-- | src/Hakyll/Web/Feed.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Hakyll/Web/Feed.hs b/src/Hakyll/Web/Feed.hs index 85674c6..63ef2c1 100644 --- a/src/Hakyll/Web/Feed.hs +++ b/src/Hakyll/Web/Feed.hs @@ -60,17 +60,17 @@ createFeed :: Template -- ^ Feed template -> String -- ^ Resulting feed createFeed feedTemplate itemTemplate url configuration items = pageBody $ applyTemplate feedTemplate - $ setField "timestamp" timestamp - $ setField "title" (feedTitle configuration) - $ setField "description" (feedDescription configuration) - $ setField "authorName" (feedDescription configuration) - $ setField "root" (feedRoot configuration) - $ setField "url" url + $ trySetField "timestamp" timestamp + $ trySetField "title" (feedTitle configuration) + $ trySetField "description" (feedDescription configuration) + $ trySetField "authorName" (feedDescription configuration) + $ trySetField "root" (feedRoot configuration) + $ trySetField "url" url $ fromBody body where -- Preprocess items items' = flip map items $ applyTemplate itemTemplate - . setField "root" (feedRoot configuration) + . trySetField "root" (feedRoot configuration) -- Body: concatenated items body = concat $ map pageBody items' |