From 5b80f528c7c518c7d82e70635f265be3c0120327 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@googlemail.com>
Date: Sun, 25 Mar 2012 20:56:19 +0200
Subject: * default rss feed link now points to an XML file

---
 src/Blog.hs | 2 +-
 src/Main.hs | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Blog.hs b/src/Blog.hs
index 208552c10e24..631bfa013d34 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -72,7 +72,7 @@ blogTemplate lang t_append body = H.docTypeHtml $ do --add body
             toHtml $ orText lang
             H.a ! A.class_ "link" ! A.href (toValue imu) ! A.target "_blank" $ "iMessage"
             "."
-        feedURL = "/" ++ show lang ++ "/rss"
+        feedURL = "/" ++ show lang ++ "/rss.xml"
 
 renderEntries :: Bool -> [Entry] -> Text -> Maybe Html -> Html
 renderEntries showAll entries topText footerLinks = do
diff --git a/src/Main.hs b/src/Main.hs
index 06bf4d3f63e4..0ad5d979c288 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -95,6 +95,7 @@ blogHandler acid lang =
                 \(eId :: Integer) -> addComment acid lang $ EntryId eId
          , nullDir >> showIndex acid lang
          , dir "rss" $ nullDir >> showRSS acid lang
+         , dir "rss.xml" $ nullDir >> showRSS acid lang
          , notFound $ toResponse $ showError NotFound lang
          ]
 
-- 
cgit 1.4.1