haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make i18n more international

Browse Source
This commit is contained in:
Gábor Lipták 2011-11-06 09:26:55 -05:00 committed by Greg Weber
parent e636c11c03
commit be64c17467
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-examples/src/i18n.lhs
View File

@ -33,8 +33,8 @@ To work on both ghc6 and ghc7
> let hello = chooseHello ls > let hello = chooseHello ls
> let choices = > let choices =
> [ ("en", "English") :: (Text, Text) > [ ("en", "English") :: (Text, Text)
> , ("es", "Spanish") > , ("es", "Español")
> , ("he", "Hebrew") > , ("he", "עִבְרִית")
> ] > ]
> defaultLayout $ do > defaultLayout $ do
> setTitle "I18N Homepage" > setTitle "I18N Homepage"
@ -49,8 +49,8 @@ To work on both ghc6 and ghc7
> chooseHello :: [Text] -> Text > chooseHello :: [Text] -> Text
> chooseHello [] = "Hello" > chooseHello [] = "Hello"
> chooseHello ("he":_) = "Shalom" > chooseHello ("he":_) = "שלום"
> chooseHello ("es":_) = "Hola" > chooseHello ("es":_) = "¡Hola!"
> chooseHello (_:rest) = chooseHello rest > chooseHello (_:rest) = chooseHello rest
> getSetLangR :: Text -> Handler () > getSetLangR :: Text -> Handler ()