diff options
Diffstat (limited to 'src/server/Model/Message')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 10 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 19 |
2 files changed, 20 insertions, 9 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 1a1e944..34c9d71 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -4,16 +4,20 @@ module Model.Message.Key data Key = + -- Title + + SharedCost + -- Mail - NoReplyMail + | NoReplyMail -- Sign - | SharedCost | SignIn | InvalidEmail - | Unauthorized + | UnauthorizedSignIn + | ErrorSignIn -- Dates diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 05187aa..2212e1a 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -15,6 +15,13 @@ getNonFormattedMessage = m m :: Lang -> Key -> Text +-- Title + +m l SharedCost = + case l of + English -> "Shared Cost" + French -> "Partage des frais" + -- Mail m l NoReplyMail = @@ -24,11 +31,6 @@ m l NoReplyMail = -- Sign in -m l SharedCost = - case l of - English -> "Shared Cost" - French -> "Partage des frais" - m l SignIn = case l of English -> "Sign in" @@ -39,11 +41,16 @@ m l InvalidEmail = English -> "Your email is not valid." French -> "Votre courriel n'est pas valide." -m l Unauthorized = +m l UnauthorizedSignIn = case l of English -> "You are not authorized to sign in." French -> "Tu n'es pas autorisé à te connecter." +m l ErrorSignIn = + case l of + English -> "An error occured, please retry later." + French -> "Une erreur est survenue, veuillez réessayer ultérieurement." + -- Date m l January = |