aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message/Key.hs10
-rw-r--r--src/server/Model/Message/Translations.hs19
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 =