From 9ec84e3a20c767f6525639f58cd22715e302b88d Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jun 2016 12:31:24 +0200
Subject: Add an editable date field for punctual payment creation

---
 src/server/Model/Message/Key.hs          |  5 +++--
 src/server/Model/Message/Translations.hs | 11 ++++++++---
 2 files changed, 11 insertions(+), 5 deletions(-)

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

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 8b957f1..093024b 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -75,6 +75,7 @@ data Key =
 
   | PaymentName
   | PaymentCost
+  | PaymentDate
   | PaymentPunctual
   | PaymentMonthly
 
@@ -90,7 +91,7 @@ data Key =
   | Income
   | MonthlyNetIncomes
   | IncomeNotDeleted
-  | IncomeCreation
+  | IncomeDate
   | IncomeAmount
   | ConfirmDelete
 
@@ -117,4 +118,4 @@ data Key =
   deriving (Enum, Bounded, Show)
 
 instance Json.ToJSON Key where
- toJSON = Json.String . T.pack . show
+  toJSON = Json.String . T.pack . show
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index df3f402..6522d75 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -312,6 +312,11 @@ m l PaymentCost =
     English -> "Cost"
     French  -> "Coût"
 
+m l PaymentDate =
+  case l of
+    English -> "Date"
+    French  -> "Date"
+
 m l PaymentPunctual =
   case l of
     English -> "Punctual"
@@ -344,10 +349,10 @@ m l IncomeNotDeleted =
     English -> "The income could not have been deleted."
     French  -> "Le revenu n'a pas pu être supprimé."
 
-m l IncomeCreation =
+m l IncomeDate =
   case l of
-    English -> "Creation"
-    French  -> "Création"
+    English -> "Date"
+    French  -> "Date"
 
 m l IncomeAmount =
   case l of
-- 
cgit v1.2.3