fix use Node.append_child, since Node.append is gone

rizo · Apr 2, 2024 · 33e2179 · 33e2179
1 parent 4a5c506
commit 33e2179
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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 ->