diff options
Diffstat (limited to 'src/server/Model')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 4 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 7 |
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 ?" |