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

Include Portuguese support in yesod-auth.

Browse Source 
Now 'defaultMessage' is just a synonym of 'englishMessage' and we
have a new 'portugueseMessage' rendering function.
This commit is contained in:
Felipe Lessa 2011-12-24 17:08:49 -02:00
parent d5cc216023
commit 4c394e070b
1 changed files with 67 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
yesod-auth/Yesod/Auth/Message.hs
View File

@ -2,6 +2,10 @@
module Yesod.Auth.Message module Yesod.Auth.Message
( AuthMessage (..) ( AuthMessage (..)
, defaultMessage , defaultMessage
-- * All languages
, englishMessage
, portugueseMessage
) where ) where
import Data.Monoid (mappend) import Data.Monoid (mappend)
@ -36,34 +40,70 @@ data AuthMessage =
| NowLoggedIn | NowLoggedIn
| LoginTitle | LoginTitle
-- | Defaults to 'englishMessage'.
defaultMessage :: AuthMessage -> Text defaultMessage :: AuthMessage -> Text
defaultMessage NoOpenID = "No OpenID identifier found" defaultMessage = englishMessage
defaultMessage LoginOpenID = "Login via OpenID"
defaultMessage LoginGoogle = "Login via Google" englishMessage :: AuthMessage -> Text
defaultMessage LoginYahoo = "Login via Yahoo" englishMessage NoOpenID = "No OpenID identifier found"
defaultMessage Email = "Email" englishMessage LoginOpenID = "Login via OpenID"
defaultMessage Password = "Password" englishMessage LoginGoogle = "Login via Google"
defaultMessage Register = "Register" englishMessage LoginYahoo = "Login via Yahoo"
defaultMessage RegisterLong = "Register a new account" englishMessage Email = "Email"
defaultMessage EnterEmail = "Enter your e-mail address below, and a confirmation e-mail will be sent to you." englishMessage Password = "Password"
defaultMessage ConfirmationEmailSentTitle = "Confirmation e-mail sent" englishMessage Register = "Register"
defaultMessage (ConfirmationEmailSent email) = englishMessage RegisterLong = "Register a new account"
englishMessage EnterEmail = "Enter your e-mail address below, and a confirmation e-mail will be sent to you."
englishMessage ConfirmationEmailSentTitle = "Confirmation e-mail sent"
englishMessage (ConfirmationEmailSent email) =
"A confirmation e-mail has been sent to " `mappend` "A confirmation e-mail has been sent to " `mappend`
email `mappend` email `mappend`
"." "."
defaultMessage AddressVerified = "Address verified, please set a new password" englishMessage AddressVerified = "Address verified, please set a new password"
defaultMessage InvalidKeyTitle = "Invalid verification key" englishMessage InvalidKeyTitle = "Invalid verification key"
defaultMessage InvalidKey = "I'm sorry, but that was an invalid verification key." englishMessage InvalidKey = "I'm sorry, but that was an invalid verification key."
defaultMessage InvalidEmailPass = "Invalid email/password combination" englishMessage InvalidEmailPass = "Invalid email/password combination"
defaultMessage BadSetPass = "You must be logged in to set a password" englishMessage BadSetPass = "You must be logged in to set a password"
defaultMessage SetPassTitle = "Set password" englishMessage SetPassTitle = "Set password"
defaultMessage SetPass = "Set a new password" englishMessage SetPass = "Set a new password"
defaultMessage NewPass = "New password" englishMessage NewPass = "New password"
defaultMessage ConfirmPass = "Confirm" englishMessage ConfirmPass = "Confirm"
defaultMessage PassMismatch = "Passwords did not match, please try again" englishMessage PassMismatch = "Passwords did not match, please try again"
defaultMessage PassUpdated = "Password updated" englishMessage PassUpdated = "Password updated"
defaultMessage Facebook = "Login with Facebook" englishMessage Facebook = "Login with Facebook"
defaultMessage LoginViaEmail = "Login via email" englishMessage LoginViaEmail = "Login via email"
defaultMessage InvalidLogin = "Invalid login" englishMessage InvalidLogin = "Invalid login"
defaultMessage NowLoggedIn = "You are now logged in" englishMessage NowLoggedIn = "You are now logged in"
defaultMessage LoginTitle = "Login" englishMessage LoginTitle = "Login"
portugueseMessage :: AuthMessage -> Text
portugueseMessage NoOpenID = "Nenhum identificador OpenID encontrado"
portugueseMessage LoginOpenID = "Entrar via OpenID"
portugueseMessage LoginGoogle = "Entrar via Google"
portugueseMessage LoginYahoo = "Entrar via Yahoo"
portugueseMessage Email = "E-mail"
portugueseMessage Password = "Senha"
portugueseMessage Register = "Registrar"
portugueseMessage RegisterLong = "Registrar uma nova conta"
portugueseMessage EnterEmail = "Por favor digite seu endereço de e-mail abaixo e um e-mail de confirmação será enviado para você."
portugueseMessage ConfirmationEmailSentTitle = "E-mail de confirmação enviado"
portugueseMessage (ConfirmationEmailSent email) =
"Um e-mail de confirmação foi enviado para " `mappend`
email `mappend`
"."
portugueseMessage AddressVerified = "Endereço verificado, por favor entre com uma nova senha"
portugueseMessage InvalidKeyTitle = "Chave de verificação inválida"
portugueseMessage InvalidKey = "Por favor nos desculpe, mas essa é uma chave de verificação inválida."
portugueseMessage InvalidEmailPass = "E-mail e/ou senha inválidos"
portugueseMessage BadSetPass = "Você deve entrar para definir uma senha"
portugueseMessage SetPassTitle = "Definir senha"
portugueseMessage SetPass = "Definir uma nova senha"
portugueseMessage NewPass = "Nova senha"
portugueseMessage ConfirmPass = "Confirmar"
portugueseMessage PassMismatch = "Senhas não conferem, por favor tente novamente"
portugueseMessage PassUpdated = "Senhas alteradas"
portugueseMessage Facebook = "Entrar via Facebook"
portugueseMessage LoginViaEmail = "Entrar via e-mail"
portugueseMessage InvalidLogin = "Informações de login inválidas"
portugueseMessage NowLoggedIn = "Você acaba de entrar no site com sucesso!"
portugueseMessage LoginTitle = "Entrar no site"