From eb5ecba59887a5d1e74bf6287fabdf8a2979f44c Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 19:03:12 +0200
Subject: Payment frequence choice between either punctual or monthly, UI only

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

(limited to 'src/server/Model')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index ce03d34..8a37a2a 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -52,5 +52,7 @@ data Key =
   | Add
   | PaymentNotDeleted
   | MoneySymbol
+  | Punctual
+  | Monthly
 
   deriving (Enum, Bounded, Show)
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 6c569fd..ec8cf19 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -199,3 +199,13 @@ m l MoneySymbol =
   case l of
     English -> "$"
     French  -> "€"
+
+m l Punctual =
+  case l of
+    English -> "Punctual"
+    French  -> "Ponctuel"
+
+m l Monthly =
+  case l of
+    English -> "Monthly"
+    French  -> "Mensuel"
-- 
cgit v1.2.3