diff options
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 | 32 |
2 files changed, 23 insertions, 11 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 4ef8663..27a93dd 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -64,10 +64,12 @@ data Key = | Payment | Payments | SearchText + | Worth -- Statistics | Statistics + | Balance | Overall | ByMonths | By diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index c7a2043..55ef97b 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -240,15 +240,20 @@ m l Payment = English -> "payment" French -> "paiement" +m l Payments = + case l of + English -> "payments" + French -> "paiements" + m l SearchText = case l of English -> "Search" French -> "Recherche" -m l Payments = +m l Worth = case l of - English -> "payments" - French -> "paiements" + English -> "{1} worth {2}" + French -> "{1} valant {2}" -- Statistics @@ -257,6 +262,11 @@ m l Statistics = English -> "Statistics" French -> "Statistiques" +m l Balance = + case l of + English -> "Balance" + French -> "Équilibre" + m l Overall = case l of English -> "Overall" @@ -274,15 +284,15 @@ m l By = m l Mean = case l of - English -> "Mean: {0}" - French -> "En moyenne : {0}" + English -> "Mean: {1}" + French -> "En moyenne : {1}" -- Income m l CumulativeIncomesSince = case l of - English -> "Cumulative incomes since {0}" - French -> "Revenus nets cumulés depuis le {0}" + English -> "Cumulative incomes since {1}" + French -> "Revenus nets cumulés depuis le {1}" m l Income = case l of @@ -338,13 +348,13 @@ m l InvalidInt = m l SmallerIntThan = case l of - English -> "Integer bigger than {0} required" - French -> "Entier supérieur à {0} requis" + English -> "Integer bigger than {1} required" + French -> "Entier supérieur à {1} requis" m l GreaterIntThan = case l of - English -> "Integer smaller than {0} required" - French -> "Entier inférieur à {0} requis" + English -> "Integer smaller than {1} required" + French -> "Entier inférieur à {1} requis" -- Http error |