1 files changed, 32 insertions, 0 deletions
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 8c27a2d..8c6a233 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -193,6 +193,16 @@ m l CostMustBeNonNullNumber =
     English -> "The cost must be a non-null integer."
     French  -> "Le coût doit être un entier non nul."
 
+m l IncomeRequired =
+  case l of
+    English -> "Type an income."
+    French  -> "Entre un revenu."
+
+m l IncomeMustBeNonNullNumber =
+  case l of
+    English -> "The income must be a non-null integer."
+    French  -> "Le revenu doit être un entier non nul."
+
 -- Payments
 
 m l Add =
@@ -235,6 +245,8 @@ m l PluralMonthlyCount =
         French  -> "{1} paiements mensuels comptabilisant {2}"
     ]
 
+-- Income
+
 m l Income =
   T.concat
     [ case l of
@@ -246,3 +258,23 @@ m l NoIncome =
   case l of
     English -> "Income not given"
     French  -> "Revenu non renseigné"
+
+m l Edit =
+  case l of
+    English -> "Edit"
+    French  -> "Éditer"
+
+m l Validate =
+  case l of
+    English -> "Validate"
+    French  -> "Valider"
+
+m l Undo =
+  case l of
+    English -> "Undo"
+    French  -> "Annuler"
+
+m l NewIncome =
+  case l of
+    English -> "New income"
+    French  -> "Nouveau revenu"