diff options
author | Joris | 2015-09-06 19:36:07 +0200 |
---|---|---|
committer | Joris | 2015-09-06 19:36:07 +0200 |
commit | 2e75a5ac41afd4d6458ad230bd26fd9e73c7bdb9 (patch) | |
tree | d77b75d2f5456c394013626712a44751785545de /src/server/Model/Message | |
parent | dab9e42dae6e5287935e5dfc418fcb2adf036b9a (diff) |
Shortening monthly count and sum message
Diffstat (limited to 'src/server/Model/Message')
-rw-r--r-- | src/server/Model/Message/Translations.hs | 14 |
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 , "." ] |