* default rss feed link now points to an XML file
This commit is contained in:
parent
1e45dcf7c8
commit
5b80f528c7
2 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
]
|
||||
|
||||
|
|
Loading…
Reference in a new issue