about summary refs log tree commit diff
path: root/src/Locales.hs
diff options
context:
space:
mode:
authorVincent Ambo <v.ambo@me.com>2012-03-13T04·31+0100
committerVincent Ambo <v.ambo@me.com>2012-03-13T04·31+0100
commit6092eb6f5e095c7a20f64e4149399391506dd9a0 (patch)
treecb9f94268e2c55454ce6e2f7733df79baa5e0297 /src/Locales.hs
parent1c4db3b576febde673a1b0bb615b6aee174f9cee (diff)
* blog is now running off acid-state (this thing is *fast*)
Diffstat (limited to 'src/Locales.hs')
-rw-r--r--src/Locales.hs13
1 files changed, 6 insertions, 7 deletions
diff --git a/src/Locales.hs b/src/Locales.hs
index 56bc42d10ba5..393a69f8fc18 100644
--- a/src/Locales.hs
+++ b/src/Locales.hs
@@ -6,18 +6,13 @@ import           Data.Data (Data, Typeable)
 import           Data.Text (Text)
 import qualified Data.Text as T
 
+import    BlogDB (BlogLang (..))
+
 {- to add a language simply define its abbreviation and Show instance then
  - translate the appropriate strings and add CouchDB views in Server.hs -}
 
-data BlogLang = EN | DE deriving (Data, Typeable)
-
-instance Show BlogLang where
-    show EN = "en"
-    show DE = "de"
-
 data BlogError = NotFound | DBError
 
-
 version = "2.2b"
 
 allLang = [EN, DE]
@@ -77,6 +72,10 @@ nextText :: BlogLang -> Text
 nextText DE = "Später"
 nextText EN = "Later"
 
+readMore :: BlogLang -> Text
+readMore DE = "[Weiterlesen]"
+readMore EN = "[Read more]"
+
 -- contact information
 contactText :: BlogLang -> Text
 contactText DE = "Wer mich kontaktieren will: "