From 0dc740d8f64b31ff49b7cfb51ddc2dde7b5c121e Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jun 2016 13:22:47 +0200
Subject: Confirm before payment deletion

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

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

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 093024b..a88d2b8 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -79,6 +79,8 @@ data Key =
   | PaymentPunctual
   | PaymentMonthly
 
+  | ConfirmPaymentDelete
+
   -- Statistics
 
   | Statistics
@@ -93,7 +95,7 @@ data Key =
   | IncomeNotDeleted
   | IncomeDate
   | IncomeAmount
-  | ConfirmDelete
+  | ConfirmIncomeDelete
 
   -- Form
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 6522d75..3b91d17 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -327,6 +327,11 @@ m l PaymentMonthly =
     English -> "Monthly"
     French  -> "Mensuel"
 
+m l ConfirmPaymentDelete =
+  case l of
+    English -> "Are you sure to delete this payment ?"
+    French  -> "Voulez-vous vraiment supprimer ce paiement ?"
+
 -- Income
 
 m l CumulativeIncomesSince =
@@ -359,7 +364,7 @@ m l IncomeAmount =
     English -> "Amount"
     French  -> "Montant"
 
-m l ConfirmDelete =
+m l ConfirmIncomeDelete =
   case l of
     English -> "Are you sure to delete this income ?"
     French  -> "Voulez-vous vraiment supprimer ce revenu ?"
-- 
cgit v1.2.3