diff options
| author | Joris | 2016-04-05 13:39:48 +0200 |
|---|---|---|
| committer | Joris | 2016-04-05 13:39:48 +0200 |
| commit | edca79a7e2bfed1a08de780cc6ab7eac430ef950 (patch) | |
| tree | 02f794910924f1ca0114d08a254deed98388c70f /src/server/Model | |
| parent | d19b69eeeb0c24ee7e4a75b0da32eefba1d43928 (diff) | |
Add a statistics empty page
Diffstat (limited to 'src/server/Model')
| -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 |