* default rss feed link now points to an XML file

This commit is contained in:
Vincent Ambo 2012-03-25 20:56:19 +02:00
parent 1e45dcf7c8
commit 5b80f528c7
2 changed files with 2 additions and 1 deletions

View file

@ -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