Translating payment screen except dates

2 files changed, 34 insertions, 0 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 50486be..9b5c69e 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -40,4 +40,14 @@ data Key =
 
   | Date
 
+  -- Validation
+
+  | CategoryRequired
+  | CostRequired
+  | CostMustBeNumber
+
+  -- Payments
+
+  | Add
+
   deriving (Enum, Bounded, Show)
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index d680e6e..5a626ed 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -160,3 +160,27 @@ m l Date =
   case l of
     English -> "{2} {1}, {3}"
     French -> "{1} {2} {3}"
+
+-- Validation
+
+m l CategoryRequired =
+  case l of
+    English -> "The category is required."
+    French -> "La catégorie est requise."
+
+m l CostRequired =
+  case l of
+    English -> "The cost is required."
+    French -> "Le coût est requis."
+
+m l CostMustBeNumber =
+  case l of
+    English -> "The cost must be a number."
+    French -> "Le coût doit être un nombre."
+
+-- Payments
+
+m l Add =
+  case l of
+    English -> "Add"
+    French  -> "Ajouter"