From 33e2179fd116f891a324db84c1203cdb1b247f73 Mon Sep 17 00:00:00 2001 From: Rizo I Date: Tue, 2 Apr 2024 20:01:51 +0100 Subject: [PATCH] fix use Node.append_child, since Node.append is gone --- vendor/html/src/Html.ml | 2 +- vendor/stdweb/examples/Events.ml | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/vendor/html/src/Html.ml b/vendor/html/src/Html.ml index bfec0b3..d8263eb 100644 --- a/vendor/html/src/Html.ml +++ b/vendor/html/src/Html.ml @@ -181,7 +181,7 @@ let on_double_click ?confirm handler = (* Elem *) module Elem_util = struct - let mount ~parent ?(insert = Dom.Node.append parent) html = + let mount ~parent ?(insert = Dom.Node.append_child ~parent) html = html.mount ~parent ~insert let unmount html = html.unmount () diff --git a/vendor/stdweb/examples/Events.ml b/vendor/stdweb/examples/Events.ml index 0fde7c4..eeca8f1 100644 --- a/vendor/stdweb/examples/Events.ml +++ b/vendor/stdweb/examples/Events.ml @@ -19,9 +19,9 @@ let () = Dom.Node.set_text_content lnk "Link"; Dom.Node.set_href lnk "#"; - Dom.Node.append main btn; - Dom.Node.append main inp; - Dom.Node.append main lnk; + Dom.Node.append_child ~parent:main btn; + Dom.Node.append_child ~parent:main inp; + Dom.Node.append_child ~parent:main lnk; (* Element listener *) Dom.Node.bind btn Dom.Event.click (fun ev ->