From be64c17467cb0a9c4203ff99e37b2df0b738235a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Lipt=C3=A1k?= <gliptak@gmail.com>
Date: Sun, 6 Nov 2011 09:26:55 -0500
Subject: [PATCH] Make i18n more international

---
 yesod-examples/src/i18n.lhs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/yesod-examples/src/i18n.lhs b/yesod-examples/src/i18n.lhs
index 001cad3e..12bd0f52 100644
--- a/yesod-examples/src/i18n.lhs
+++ b/yesod-examples/src/i18n.lhs
@@ -33,8 +33,8 @@ To work on both ghc6 and ghc7
 >     let hello = chooseHello ls
 >     let choices =
 >             [ ("en", "English") :: (Text, Text)
->             , ("es", "Spanish")
->             , ("he", "Hebrew")
+>             , ("es", "Español")
+>             , ("he", "עִבְרִית")
 >             ]
 >     defaultLayout $ do
 >       setTitle "I18N Homepage"
@@ -49,8 +49,8 @@ To work on both ghc6 and ghc7
 
 > chooseHello :: [Text] -> Text
 > chooseHello [] = "Hello"
-> chooseHello ("he":_) = "Shalom"
-> chooseHello ("es":_) = "Hola"
+> chooseHello ("he":_) = "שלום"
+> chooseHello ("es":_) = "¡Hola!"
 > chooseHello (_:rest) = chooseHello rest
 
 > getSetLangR :: Text -> Handler ()