From fe2cced55e1b44dbae57e55fe0f459c85e7369cb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:21:26 +0100
Subject: Application unification

---
 editor/forms/delete_page.ml | 27 +++++----------------------
 1 file changed, 5 insertions(+), 22 deletions(-)

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

diff --git a/editor/forms/delete_page.ml b/editor/forms/delete_page.ml
index eb36560..37b1c32 100755
--- a/editor/forms/delete_page.ml
+++ b/editor/forms/delete_page.ml
@@ -1,34 +1,17 @@
 open Brr
 open Note
 
-module Handler = struct
-
-  type t = Jstr.t
-
-  let on_close
-    : t -> State.t -> State.t
-    = fun id state ->
-      State.Storage.delete (fun () -> Some id);
-      let json = State.Storage.load None in
-      State.load_page None state json
-end
+type t = unit
 
 let create
-  : Jstr.t -> Events.t
-  = fun name ->
-
-    let state =
-      S.const
-        (Events.Event
-           ( name
-           , (module Handler: Events.Handler with type t = Handler.t))) in
+  : unit -> t Note.signal * El.t
+  = fun () ->
+    let state = S.const () in
 
     let message = begin
       let open Jstr in
 
-      (v "La page ")
-      + name
-      + (v " sera définitivement supprimée")
+      (v "La page sera définitivement supprimée")
     end in
 
     ( state
-- 
cgit v1.2.3