From 4ba4951e530cbdfb6fa7bee811456208a83ce1dd Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:17:51 +0100
Subject: In popup, added a predicate to validate the form

---
 editor/actions/add_page.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml
index e5e8541..ec9768b 100755
--- a/editor/actions/add_page.ml
+++ b/editor/actions/add_page.ml
@@ -23,7 +23,8 @@ let create
     let title = Jstr.v "Nouvelle page" in
     let ev = Elements.Popup.create
         ~title
-        ~form:(Some (Forms.Add_page.create ()))
+        ~form:(Forms.Add_page.create ())
+        ()
     in
     Note.E.map
       (fun v -> State.E
-- 
cgit v1.2.3