From 302a2e798f10e61c129753a2bd11634420c1f1a1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 2 Jan 2016 20:31:25 +0100
Subject: Set a spinner for sign in

---
 src/server/Model/Message/Translations.hs | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'src/server/Model/Message/Translations.hs')

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 =
-- 
cgit v1.2.3