From 24633871359ec9fbd63fdfebf79a6351b2792f77 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 00:05:50 +0200
Subject: Can add monthly payments, not visible at the moment though, just the
 count is printed

---
 src/server/Model/Message/Key.hs          |  2 ++
 src/server/Model/Message/Translations.hs | 10 ++++++++++
 2 files changed, 12 insertions(+)

(limited to 'src/server/Model/Message')

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."
-- 
cgit v1.2.3