diff options
Diffstat (limited to 'services/tazblog/src/Locales.hs')
-rw-r--r-- | services/tazblog/src/Locales.hs | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/services/tazblog/src/Locales.hs b/services/tazblog/src/Locales.hs deleted file mode 100644 index 79edcd75f32a..000000000000 --- a/services/tazblog/src/Locales.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} - -module Locales where - -import Data.Maybe (fromMaybe) -import Data.Text (Text) -import qualified Data.Text as T -import Network.URI - -data BlogLang = EN | DE - deriving (Eq, Ord) - -instance Show BlogLang where - - show DE = "de" - show EN = "en" - -data BlogError = NotFound | UnknownError - -version = "6.0.0" - -blogTitle :: BlogLang -> Text -> Text -blogTitle DE s = T.concat ["Tazjins blog", s] -blogTitle EN s = T.concat ["Tazjin's blog", s] - -showLangText :: BlogLang -> Text -showLangText EN = "en" -showLangText DE = "de" - -backText :: BlogLang -> Text -backText DE = "Früher" -backText EN = "Earlier" - -nextText :: BlogLang -> Text -nextText DE = "Später" -nextText EN = "Later" - -readMore :: BlogLang -> Text -readMore DE = "[Weiterlesen]" -readMore EN = "[Read more]" - --- 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" -notFoundTitle EN = "Not found" - -notFoundText :: BlogLang -> Text -notFoundText DE = "Das gewünschte Objekt wurde leider nicht gefunden." -notFoundText EN = "The requested object could not be found." - -unknownErrorText :: BlogLang -> Text -unknownErrorText DE = "Ein unbekannter Fehler ist aufgetreten." -unknownErrorText EN = "An unknown error has occured." - --- static information -repoURL :: Text = "https://bitbucket.org/tazjin/tazblog-haskell" -mailTo :: Text = "mailto:tazjin+blog@gmail.com" -twitter :: Text = "https://twitter.com/tazjin" |