Add a dialog to confirm income deletion

1 files changed, 15 insertions, 3 deletions

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 55ef97b..8a640d1 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -319,10 +319,10 @@ m l Amount =
     English -> "Amount"
     French  -> "Montant"
 
-m l Delete =
+m l ConfirmDelete =
   case l of
-    English -> "Delete"
-    French  -> "Supprimer"
+    English -> "Are you sure to delete this income ?"
+    French  -> "Voulez-vous vraiment supprimer ce revenu ?"
 
 -- Form error
 
@@ -356,6 +356,18 @@ m l GreaterIntThan =
     English -> "Integer smaller than {1} required"
     French  -> "Entier inférieur à {1} requis"
 
+-- Dialog
+
+m l Confirm =
+  case l of
+    English -> "Confirm"
+    French  -> "Confirmer"
+
+m l Undo =
+  case l of
+    English -> "Undo"
+    French  -> "Annuler"
+
 -- Http error
 
 m l Timeout =