diff options
| author | Joris | 2016-04-07 23:58:23 +0200 |
|---|---|---|
| committer | Joris | 2016-04-07 23:58:23 +0200 |
| commit | 6541fa5316816d6f97a87a370775cfe278e7eeb8 (patch) | |
| tree | 733c7136776d652db2711fad2d8427d70136bccf /src/server/Model/Message | |
| parent | f101c20c9da59c8c644d3cb6fa0b1d08f63e40e4 (diff) | |
| download | budget-6541fa5316816d6f97a87a370775cfe278e7eeb8.tar.gz budget-6541fa5316816d6f97a87a370775cfe278e7eeb8.tar.bz2 budget-6541fa5316816d6f97a87a370775cfe278e7eeb8.zip | |
Add cumulative incomes by user
Diffstat (limited to 'src/server/Model/Message')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 2 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 14 |
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 = |