aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model/Message
diff options
context:
space:
mode:
authorJoris2015-09-06 19:36:07 +0200
committerJoris2015-09-06 19:36:07 +0200
commit2e75a5ac41afd4d6458ad230bd26fd9e73c7bdb9 (patch)
treed77b75d2f5456c394013626712a44751785545de /src/server/Model/Message
parentdab9e42dae6e5287935e5dfc418fcb2adf036b9a (diff)
Shortening monthly count and sum message
Diffstat (limited to 'src/server/Model/Message')
-rw-r--r--src/server/Model/Message/Translations.hs14
1 files changed, 9 insertions, 5 deletions
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 0a1226a..a3603b8 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -211,15 +211,19 @@ m l Monthly =
French -> "Mensuel"
m l SingularMonthlyCount =
- case l of
- English -> "You have {1} monthly payment."
- French -> "Vous avez {1} paiement mensuel."
+ T.concat
+ [ case l of
+ English -> "{1} monthly payment of {2} "
+ French -> "{1} paiement mensuel de {2} "
+ , m l MoneySymbol
+ , "."
+ ]
m l PluralMonthlyCount =
T.concat
[ case l of
- English -> "You have {1} monthly payments with a total of {2} "
- French -> "Vous avez {1} paiements mensuels d'une valeur totale de {2} "
+ English -> "{1} monthly payments totalling {2} "
+ French -> "{1} paiements mensuels comptabilisant {2} "
, m l MoneySymbol
, "."
]