Added RSS date for items.

1 files changed, 8 insertions, 2 deletions

diff --git a/src/Text/Hakyll/Rss.hs b/src/Text/Hakyll/Rss.hs
index 5f1d867..992e965 100644
--- a/src/Text/Hakyll/Rss.hs
+++ b/src/Text/Hakyll/Rss.hs
@@ -5,12 +5,13 @@ module Text.Hakyll.Rss
     ( RssConfiguration (..)
     , renderRss
     , renderRssWith
+    , renderRssDate
     ) where
 
 import Control.Arrow ((>>>), second)
 import Control.Monad.Reader (liftIO)
 
-import Text.Hakyll.Context (ContextManipulation)
+import Text.Hakyll.Context (ContextManipulation, renderDate)
 import Text.Hakyll.Hakyll (Hakyll)
 import Text.Hakyll.Render (render, renderChain)
 import Text.Hakyll.Renderables (createListingWith)
@@ -72,6 +73,11 @@ renderRssWith :: ContextManipulation -- ^ Manipulation to apply on the items.
 renderRssWith manipulation configuration renderables = do
     template <- liftIO $ getDataFileName "templates/rss.xml"
     itemTemplate <- liftIO $ getDataFileName "templates/rss-item.xml"
-    let renderRssWith' = createRssWith manipulation configuration
+    let renderRssWith' = createRssWith manipulation' configuration
                                        renderables template itemTemplate
     renderChain [] renderRssWith'
+  where
+    manipulation' = manipulation . renderRssDate
+
+renderRssDate :: ContextManipulation
+renderRssDate = renderDate "timestamp" "%a, %d %b %Y %H:%M:%S %Z" "No date found."