about summary refs log tree commit diff
path: root/services/tazblog/src/Locales.hs
diff options
context:
space:
mode:
Diffstat (limited to 'services/tazblog/src/Locales.hs')
-rw-r--r--services/tazblog/src/Locales.hs71
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"