From 8816cf758119a6a2073e561c8df297a833630986 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 8 Aug 2016 20:58:17 +0200
Subject: Show incomes in a table and update like payments are updated

---
 src/server/Model/Message/Key.hs          | 1 +
 src/server/Model/Message/Translations.hs | 5 +++++
 2 files changed, 6 insertions(+)

(limited to 'src/server/Model/Message')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 2723dd5..4ffc890 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -97,6 +97,7 @@ data Key =
   | CumulativeIncomesSince
   | Income
   | MonthlyNetIncomes
+  | AddIncome
   | IncomeNotDeleted
   | IncomeDate
   | IncomeAmount
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 5dcf428..32b58fc 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -374,6 +374,11 @@ m l MonthlyNetIncomes =
     English -> "Monthly incomes"
     French  -> "Revenus mensuels nets"
 
+m l AddIncome =
+  case l of
+    English -> "Add an income"
+    French  -> "Ajouter un revenu"
+
 m l IncomeNotDeleted =
   case l of
     English -> "The income could not have been deleted."
-- 
cgit v1.2.3