diff options
| author | Joris | 2015-09-06 00:05:50 +0200 |
|---|---|---|
| committer | Joris | 2015-09-06 00:05:50 +0200 |
| commit | 24633871359ec9fbd63fdfebf79a6351b2792f77 (patch) | |
| tree | a87c8a964a3c5114da13e622c604cf99ab905a06 /src/server/Model/Message | |
| parent | 8c328987901973cd0ffd2e03cae547717ebbbc67 (diff) | |
Can add monthly payments, not visible at the moment though, just the count is printed
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 | 10 |
2 files changed, 12 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 8a37a2a..163a21f 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -54,5 +54,7 @@ data Key = | MoneySymbol | Punctual | Monthly + | SingularMonthlyCount + | PluralMonthlyCount deriving (Enum, Bounded, Show) diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index ec8cf19..501f00f 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -209,3 +209,13 @@ m l Monthly = case l of English -> "Monthly" French -> "Mensuel" + +m l SingularMonthlyCount = + case l of + English -> "You have {1} monthly payment." + French -> "Vous avez {1} paiement mensuel." + +m l PluralMonthlyCount = + case l of + English -> "You have {1} monthly payments." + French -> "Vous avez {1} paiements mensuels." |