From bf94695abeda0d7bb296ae4cd0f9a53782587d4a Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:14:09 +0100
Subject: Update editor organisation

---
 editor/forms/add_page.mli | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'editor/forms/add_page.mli')

diff --git a/editor/forms/add_page.mli b/editor/forms/add_page.mli
index 97b1d6c..6be1611 100755
--- a/editor/forms/add_page.mli
+++ b/editor/forms/add_page.mli
@@ -1,5 +1,9 @@
+type t = { title : Jstr.t }
 type Events.kind +=
-  | AddPage of { title : Jstr.t }
+  | AddPage of t [@@unboxed]
 
 val create
   : unit -> Events.t
+
+val on_close
+  : t -> State.t -> State.t
-- 
cgit v1.2.3