diff --git a/src/Blog.hs b/src/Blog.hs index 208552c10..631bfa013 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 06bf4d3f6..0ad5d979c 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 ]