aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message/Key.hs4
-rw-r--r--src/server/Model/Message/Translations.hs7
2 files changed, 9 insertions, 2 deletions
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 ?"