diff options
| author | Joris | 2016-06-26 13:22:47 +0200 |
|---|---|---|
| committer | Joris | 2016-06-26 13:22:47 +0200 |
| commit | 0dc740d8f64b31ff49b7cfb51ddc2dde7b5c121e (patch) | |
| tree | fb8ac3e55677d87fb107af90a2cf62409c03b946 /src/server/Model | |
| parent | 9ec84e3a20c767f6525639f58cd22715e302b88d (diff) | |
Confirm before payment deletion
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 ?" |