diff options
| author | Vincent Ambo <viam@humac.com> | 2012-03-02T08·12+0100 |
|---|---|---|
| committer | Vincent Ambo <viam@humac.com> | 2012-03-02T08·12+0100 |
| commit | da8833bf343ddb0083cc14ef616eddd442896af5 (patch) | |
| tree | 39b3f953c859499544330ac80de5a6574f08ecae /src/Locales.hs | |
| parent | fed422f8724f9e0bfa7d6749721f2586803212a7 (diff) | |
* changes D:
Diffstat (limited to 'src/Locales.hs')
| -rw-r--r-- | src/Locales.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Locales.hs b/src/Locales.hs index fb9435195987..c3d11bc887af 100644 --- a/src/Locales.hs +++ b/src/Locales.hs @@ -4,7 +4,7 @@ module Locales where import Data.Data (Data, Typeable) -{- to add a language simply define it's abbreviation and show instance then +{- 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) @@ -17,8 +17,9 @@ version = ("2.2b" :: String) allLang = [EN, DE] -blogTitle DE = "Tazjins Blog" -blogTitle EN = "Tazjin's Blog" +blogTitle :: BlogLang -> String -> String +blogTitle DE s = "Tazjins Blog" ++ s +blogTitle EN s = "Tazjin's Blog" ++ s -- index site headline topText DE = "Aktuelle Einträge" @@ -39,8 +40,8 @@ getMonth l y m = monthName l m ++ show y 8 -> "August " 9 -> "September " 10 -> "Oktober " - 11 -> "November" - 12 -> "Dezember" + 11 -> "November " + 12 -> "Dezember " monthName EN m = case m of 1 -> "January " 2 -> "February " @@ -94,4 +95,4 @@ repoURL = "https://bitbucket.org/tazjin/tazblog-haskell" mailTo = "mailto:hej@tazj.in" twitter = "http://twitter.com/#!/tazjin" iMessage = "imessage:tazjin@me.com" -iMessage' = "sms:tazjin@me.com" \ No newline at end of file +iMessage' = "sms:tazjin@me.com" |