Show context menu to add, modify and delete markers

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Color.ml b/src/Color.ml
index b3d2f91..d2f74c4 100644
--- a/src/Color.ml
+++ b/src/Color.ml
@@ -27,10 +27,10 @@ let contrast_ratio (c1: rgb) (c2: rgb) =
 let from_raw color =
   let get_opt = function | Some x -> x | None -> raise (Invalid_argument "Option.get") in
   let div = H.div [| HA.style ("color: " ^ color) |] [| |] in
-  let body = Document.querySelectorUnsafe "body" in
-  let () = Element.appendChild body div in
+  let body = Document.query_selector_unsafe "body" in
+  let () = Element.append_child body div in
   let rgb = [%raw {| window.getComputedStyle(div).color |}] in
-  let () = Element.removeChild body div in
+  let () = Element.remove_child body div in
   let xs = Js.String.split ", " (get_opt (Js.String.splitByRe [%re "/[()]/"] rgb).(1)) in
   { r = Js.Float.fromString xs.(0)
   ; g = Js.Float.fromString xs.(1)