module Yesod.Auth.Account.Message(
AccountMsg(..)
, defaultAccountMsg
, englishAccountMsg
) where
import qualified Data.Text as T
data AccountMsg = MsgUsername
| MsgLoginName
| MsgForgotPassword
| MsgInvalidUsername
| MsgInvalidPassword
| MsgInvalidEmail'
| MsgUsernameExists T.Text
| MsgEmailExists T.Text
| MsgResendVerifyEmail
| MsgResetPwdEmailSent
| MsgEmailVerified
| MsgEmailUnverified
| MsgCurrentPassword
defaultAccountMsg :: AccountMsg -> T.Text
defaultAccountMsg = englishAccountMsg
englishAccountMsg :: AccountMsg -> T.Text
englishAccountMsg MsgUsername = "Username"
englishAccountMsg MsgLoginName = "Username or email"
englishAccountMsg MsgForgotPassword = "Forgot password?"
englishAccountMsg MsgInvalidUsername = "Invalid username"
englishAccountMsg MsgInvalidPassword = "You must provide your current password"
englishAccountMsg MsgInvalidEmail' = "Invalid email"
englishAccountMsg (MsgUsernameExists u) =
T.concat ["The username ", u, " already exists. Please choose an alternate username."]
englishAccountMsg (MsgEmailExists u) =
T.concat ["The email ", u, " already exists. Please consider a password reset."]
englishAccountMsg MsgResendVerifyEmail = "Resend verification email"
englishAccountMsg MsgResetPwdEmailSent = "A password reset email has been sent to your email address."
englishAccountMsg MsgEmailVerified = "Your email has been verified."
englishAccountMsg MsgEmailUnverified = "Your email has not yet been verified."
englishAccountMsg MsgCurrentPassword = "Please fill in your current password"