mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* default rss feed link now points to an XML file

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Blog.hs
View file

@ -72,7 +72,7 @@ blogTemplate lang t_append body = H.docTypeHtml $ do --add body
toHtml $ orText lang toHtml $ orText lang
H.a ! A.class_ "link" ! A.href (toValue imu) ! A.target "_blank" $ "iMessage" 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 :: Bool -> [Entry] -> Text -> Maybe Html -> Html
renderEntries showAll entries topText footerLinks = do renderEntries showAll entries topText footerLinks = do

1
src/Main.hs
View file

@ -95,6 +95,7 @@ blogHandler acid lang =
\(eId :: Integer) -> addComment acid lang $ EntryId eId \(eId :: Integer) -> addComment acid lang $ EntryId eId
, nullDir >> showIndex acid lang , nullDir >> showIndex acid lang
, dir "rss" $ nullDir >> showRSS acid lang , dir "rss" $ nullDir >> showRSS acid lang
, dir "rss.xml" $ nullDir >> showRSS acid lang
, notFound $ toResponse $ showError NotFound lang , notFound $ toResponse $ showError NotFound lang
] ]