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