diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:21:26 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | fe2cced55e1b44dbae57e55fe0f459c85e7369cb (patch) | |
tree | e7ca5f015da050b37aa759a277198512236c97f5 /editor/forms/delete_page.ml | |
parent | 1eeaf137bd30aff1bef34d05eeec686f6da8959d (diff) |
Application unification
Diffstat (limited to 'editor/forms/delete_page.ml')
-rwxr-xr-x | editor/forms/delete_page.ml | 27 |
1 files changed, 5 insertions, 22 deletions
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 |