diff options
Diffstat (limited to 'services/tazblog/src/Locales.hs')
-rw-r--r-- | services/tazblog/src/Locales.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/services/tazblog/src/Locales.hs b/services/tazblog/src/Locales.hs index 125e99aef9c7..2e49809eee32 100644 --- a/services/tazblog/src/Locales.hs +++ b/services/tazblog/src/Locales.hs @@ -1,15 +1,21 @@ {-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-} module Locales where -import BlogDB (BlogLang (..)) 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 = "5.1.2" +version = "6.0.0" blogTitle :: BlogLang -> Text -> Text blogTitle DE s = T.concat ["Tazjins blog", s] |