about summary refs log tree commit diff
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@googlemail.com>2012-03-25T18·56+0200
committerVincent Ambo <tazjin@googlemail.com>2012-03-25T18·56+0200
commit5b80f528c7c518c7d82e70635f265be3c0120327 (patch)
treed4028b3f8ba47769b9a361629f05a20d05f9055e
parent1e45dcf7c8ddd00e08b51dfc4f325426ab96a265 (diff)
* default rss feed link now points to an XML file
-rw-r--r--src/Blog.hs2
-rw-r--r--src/Main.hs1
2 files changed, 2 insertions, 1 deletions
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
          ]