From 72e3b16bbd258e63f047392c973ba5e8f0a823c8 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 1 Jun 2021 13:11:58 +0200
Subject: Added export button in editor

---
 editor/actions/delete_page.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'editor/actions/delete_page.ml')

diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml
index 9086fc3..fb600bd 100755
--- a/editor/actions/delete_page.ml
+++ b/editor/actions/delete_page.ml
@@ -17,10 +17,13 @@ end
 let create
   : unit -> State.event Note.event
   = fun () ->
-    let title = Jstr.v "Confirmation" in
+    let title = Jstr.v "Confirmation"
+    and message =
+      Jstr.v "La page sera définitivement supprimée"
+    in
     let ev = Elements.Popup.create
         ~title
-        ~form:(Some (Forms.Delete_page.create () ))
+        ~form:(Some (Forms.Validation.create message ))
     in
     Note.E.map
       (fun v -> State.E
-- 
cgit v1.2.3