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 =