diff options
author | Joris | 2016-04-16 21:35:50 +0200 |
---|---|---|
committer | Joris | 2016-04-16 21:35:50 +0200 |
commit | 3a88115d118f8256f3ff034dc359df42a9e4051c (patch) | |
tree | 76bee981b0e2cbcf7501eb4afe2686ea7bc2710b /src/server/Model | |
parent | 06ccc38b65f0f4da2046ac97de447cd1ad061425 (diff) |
Responsive header
Diffstat (limited to 'src/server/Model')
-rw-r--r-- | src/server/Model/Message/Key.hs | 1 | ||||
-rw-r--r-- | src/server/Model/Message/Translations.hs | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 6d48682..32c7856 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -61,6 +61,7 @@ data Key = | Monthly | SingularMonthlyCount | PluralMonthlyCount + | PaymentsTitle | Payment | Payments diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index e31d2df..973b756 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -235,6 +235,11 @@ m l PluralMonthlyCount = English -> "{1} monthly payments totalling {2}" French -> "{1} paiements mensuels comptabilisant {2}" +m l PaymentsTitle = + case l of + English -> "Payments" + French -> "Paiements" + m l Payment = case l of English -> "payment" |