aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message/Key.hs4
-rw-r--r--src/server/Model/Message/Translations.hs36
2 files changed, 30 insertions, 10 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 83d0467..b42cdcd 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -62,10 +62,14 @@ data Key =
| Monthly
| SingularMonthlyCount
| PluralMonthlyCount
+ | Payment
+ | Payments
-- Statistics
| Statistics
+ | Overall
+ | ByMonths
-- Income
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 8c1ba08..1d3fbe6 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -231,18 +231,24 @@ m l Monthly =
French -> "Mensuel"
m l SingularMonthlyCount =
- T.concat
- [ case l of
- English -> "{1} monthly payment of {2}"
- French -> "{1} paiement mensuel de {2}"
- ]
+ case l of
+ English -> "{1} monthly payment of {2}"
+ French -> "{1} paiement mensuel de {2}"
m l PluralMonthlyCount =
- T.concat
- [ case l of
- English -> "{1} monthly payments totalling {2}"
- French -> "{1} paiements mensuels comptabilisant {2}"
- ]
+ case l of
+ English -> "{1} monthly payments totalling {2}"
+ French -> "{1} paiements mensuels comptabilisant {2}"
+
+m l Payment =
+ case l of
+ English -> "payment"
+ French -> "paiement"
+
+m l Payments =
+ case l of
+ English -> "payments"
+ French -> "paiements"
-- Statistics
@@ -251,6 +257,16 @@ m l Statistics =
English -> "Statistics"
French -> "Statistiques"
+m l Overall =
+ case l of
+ English -> "Overall"
+ French -> "Global"
+
+m l ByMonths =
+ case l of
+ English -> "By months"
+ French -> "Par mois"
+
-- Income
m l AddIncome =