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.hs32
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