diff options
Diffstat (limited to 'src/server/Model/Message')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 6 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 19 |
2 files changed, 18 insertions, 7 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 9d1c053..83d0467 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -63,11 +63,15 @@ data Key = | SingularMonthlyCount | PluralMonthlyCount + -- Statistics + + | Statistics + -- Income | AddIncome - | Incomes | Income + | MonthlyNetIncomes | IncomeNotDeleted -- Http error diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 9db4a76..8c1ba08 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -244,6 +244,13 @@ m l PluralMonthlyCount = French -> "{1} paiements mensuels comptabilisant {2}" ] +-- Statistics + +m l Statistics = + case l of + English -> "Statistics" + French -> "Statistiques" + -- Income m l AddIncome = @@ -251,15 +258,15 @@ m l AddIncome = English -> "Add a monthly net income" French -> "Ajouter un revenu mensuel net" -m l Incomes = +m l Income = case l of - English -> "Monthly net incomes" - French -> "Revenus mensuels nets" + English -> "Income" + French -> "Revenu" -m l Income = +m l MonthlyNetIncomes = case l of - English -> "Monthly net income: {1}" - French -> "Revenu mensuel net : {1}" + English -> "Monthly net incomes" + French -> "Revenus mensuels nets" m l IncomeNotDeleted = case l of |