Cost must not be negative

1 files changed, 9 insertions, 9 deletions

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 7bc821e..62381a7 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -57,7 +57,7 @@ m l SignInUsed =
 m l SignInExpired =
   case l of
     English -> "The link expired, please sign in again."
-    French  -> "Le lien sur lequel tu as cliqué est expiré, connecte-toi à nouveau."
+    French  -> "Le lien sur lequel tu as cliqué a expiré, connecte-toi à nouveau."
 
 m l SignInInvalid =
   case l of
@@ -91,8 +91,8 @@ m l SignInLinkMail =
 
 m l SignInEmailSent =
   case l of
-    English -> "We sent you an email, please click to the provided link in order to sign in."
-    French  -> "Nous t'avons envoyé un courriel, clique sur le lien dans ce mail pour te connecter."
+    English -> "We sent you an email with a connexion link."
+    French  -> "Nous t'avons envoyé un courriel avec un lien pour te connecter."
 
 -- Date
 
@@ -165,18 +165,18 @@ m l Date =
 
 m l CategoryRequired =
   case l of
-    English -> "The category is required."
-    French -> "La catégorie est requise."
+    English -> "Type a category."
+    French -> "Entre une catégorie."
 
 m l CostRequired =
   case l of
-    English -> "The cost is required."
-    French -> "Le coût est requis."
+    English -> "Type a cost."
+    French -> "Entre un coût."
 
 m l CostMustBeNumber =
   case l of
-    English -> "The cost must be a number."
-    French -> "Le coût doit être un nombre."
+    English -> "The cost must be a positive natural number."
+    French -> "Le coût doit être un entier positif."
 
 -- Payments