aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model/Message
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model/Message')
-rw-r--r--src/server/Model/Message/Key.hs2
-rw-r--r--src/server/Model/Message/Translations.hs14
2 files changed, 8 insertions, 8 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index b42cdcd..43b8faa 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -52,7 +52,6 @@ data Key =
| CategoryRequired
| CostRequired
| DateValidationError
- | IncomeValidationError
-- Payments
@@ -73,6 +72,7 @@ data Key =
-- Income
+ | CumulativeIncomesSince
| AddIncome
| Income
| MonthlyNetIncomes
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 1d3fbe6..d4e5454 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -203,11 +203,6 @@ m l DateValidationError =
English -> "The date must be day/month/year"
French -> "La date doit avoir la forme jour/mois/année"
-m l IncomeValidationError =
- case l of
- English -> "The income must be a positive integer."
- French -> "Le revenu doit être un entier positif."
-
-- Payments
m l Add =
@@ -269,9 +264,14 @@ m l ByMonths =
-- Income
+m l CumulativeIncomesSince =
+ case l of
+ English -> "Cumulative incomes since {0}"
+ French -> "Revenus nets cumulés depuis le {0}"
+
m l AddIncome =
case l of
- English -> "Add a monthly net income"
+ English -> "Add a monthly income"
French -> "Ajouter un revenu mensuel net"
m l Income =
@@ -281,7 +281,7 @@ m l Income =
m l MonthlyNetIncomes =
case l of
- English -> "Monthly net incomes"
+ English -> "Monthly incomes"
French -> "Revenus mensuels nets"
m l IncomeNotDeleted =