Add a dialog to confirm income deletion

2 files changed, 21 insertions, 4 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 27a93dd..1653ea7 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -83,7 +83,7 @@ data Key =
   | IncomeNotDeleted
   | Creation
   | Amount
-  | Delete
+  | ConfirmDelete
 
   -- Form
 
@@ -94,6 +94,11 @@ data Key =
   | SmallerIntThan
   | GreaterIntThan
 
+  -- Dialog
+
+  | Confirm
+  | Undo
+
   -- Http error
 
   | Timeout
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 =