Make i18n more international

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 ()