From efbec9ff76ada0e59f8fc5c37a4c2734ccbf7ce2 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sat, 24 Mar 2012 00:32:38 +0100 Subject: * added RSS.hs: functions to create an RSS feed * added RSS feed handler * FromReqURI instance for BlogLang * fixed RSS-feed link --- src/Locales.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src/Locales.hs') diff --git a/src/Locales.hs b/src/Locales.hs index fc072ed61cb7..589235cea5da 100644 --- a/src/Locales.hs +++ b/src/Locales.hs @@ -3,8 +3,11 @@ module Locales where import Data.Data (Data, Typeable) +import Data.Maybe (fromMaybe) import Data.Text (Text) import qualified Data.Text as T +import Network.URI + import BlogDB (BlogLang (..)) @@ -123,6 +126,18 @@ cTextPlaceholder :: BlogLang -> Text cTextPlaceholder DE = "Kommentartext hier eingeben :]" cTextPlaceholder EN = "Enter your comment here :]" +-- RSS Strings +rssTitle :: BlogLang -> String +rssTitle DE = "Tazjins Blog" +rssTitle EN = "Tazjin's Blog" + +rssDesc :: BlogLang -> String +rssDesc DE = "Feed zu Tazjins Blog" +rssDesc EN = "Feed for Tazjin's Blog" + +rssLink :: BlogLang -> URI +rssLink l = fromMaybe nullURI $ parseURI ("http://tazj.in/" ++ show l) + -- errors notFoundTitle :: BlogLang -> Text notFoundTitle DE = "Nicht gefunden" -- cgit 1.4.1