Add missing translations and modify clone income date to be the actual date

2 files changed, 12 insertions, 0 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 4ffc890..9126b61 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -98,6 +98,8 @@ data Key =
   | Income
   | MonthlyNetIncomes
   | AddIncome
+  | CloneIncome
+  | EditIncome
   | IncomeNotDeleted
   | IncomeDate
   | IncomeAmount
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 32b58fc..4b698d7 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -379,6 +379,16 @@ m l AddIncome =
     English -> "Add an income"
     French  -> "Ajouter un revenu"
 
+m l CloneIncome =
+  case l of
+    English -> "Clone an income"
+    French  -> "Cloner un revenu"
+
+m l EditIncome =
+  case l of
+    English -> "Edit an income"
+    French  -> "Modifier un revenu"
+
 m l IncomeNotDeleted =
   case l of
     English -> "The income could not have been deleted."