Reformat

1 files changed, 14 insertions, 23 deletions

diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml
index 2b75b2e..4730eee 100755
--- a/editor/actions/delete_page.ml
+++ b/editor/actions/delete_page.ml
@@ -1,31 +1,22 @@
 module App = Editor_app
-module M = struct
 
+module M = struct
   type t = unit
 
-  let process
-    : t -> State.t -> State.t
-    = fun () state ->
-      match state.page_id with
-      | None -> state
-      | Some page_id ->
+  let process : t -> State.t -> State.t =
+   fun () state ->
+    match state.page_id with
+    | None -> state
+    | Some page_id ->
         State.Storage.delete (fun () -> Some page_id);
         State.load_page None state
-
 end
 
-let create
-  : unit -> App.event Note.event
-  = fun () ->
-    let title = Jstr.v "Confirmation"
-    and message =
-      Jstr.v "La page sera définitivement supprimée"
-    in
-    let ev = Elements.Popup.create
-        ~title
-        ~form:(Forms.Validation.create message)
-        ()
-    in
-    Note.E.map
-      (fun v -> App.dispatch (module M) v)
-      (Note.E.Option.on_some ev)
+let create : unit -> App.event Note.event =
+ fun () ->
+  let title = Jstr.v "Confirmation"
+  and message = Jstr.v "La page sera définitivement supprimée" in
+  let ev =
+    Elements.Popup.create ~title ~form:(Forms.Validation.create message) ()
+  in
+  Note.E.map (fun v -> App.dispatch (module M) v) (Note.E.Option.on_some ev)