From 2741f47ef7b87255203bc2f7f7b2b9140c70b8f0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 1 Nov 2018 13:14:25 +0100
Subject: Implementing client side validation

---
 common/src/Common/Message/Translation.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'common/src/Common/Message/Translation.hs')

diff --git a/common/src/Common/Message/Translation.hs b/common/src/Common/Message/Translation.hs
index 70eb978..e95fa74 100644
--- a/common/src/Common/Message/Translation.hs
+++ b/common/src/Common/Message/Translation.hs
@@ -162,6 +162,11 @@ m l Form_NonEmpty =
     English -> "Required field"
     French  -> "Champ requis"
 
+m l (Form_MinChars number) =
+  case l of
+    English -> T.concat [ "This field must contains at least ", T.pack . show $ number, " characters" ]
+    French  -> T.concat [ "Ce champ doit contenir au moins ", T.pack . show $ number, " caractères" ]
+
 m l Form_NonNullNumber =
   case l of
     English -> "Number must not be null"
@@ -184,8 +189,8 @@ m l Form_InvalidColor =
 
 m l Form_InvalidDate =
   case l of
-    English -> "day/month/year required"
-    French  -> "jour/mois/année requis"
+    English -> "DD/MM/YYYY required"
+    French  -> "JJ/MM/AAAA requis"
 
 m l Form_InvalidInt =
   case l of
-- 
cgit v1.2.3