diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 15:17:51 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 4ba4951e530cbdfb6fa7bee811456208a83ce1dd (patch) | |
tree | a336f1bd979da47864b3899ea340378015e72dd6 /editor/actions/add_page.ml | |
parent | 179720a7f2c790ea5557bb5caabe22a926b3e106 (diff) |
In popup, added a predicate to validate the form
Diffstat (limited to 'editor/actions/add_page.ml')
-rwxr-xr-x | editor/actions/add_page.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |