diff options
Diffstat (limited to 'src/Lib/Dom/Element.ml')
| -rw-r--r-- | src/Lib/Dom/Element.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Lib/Dom/Element.ml b/src/Lib/Dom/Element.ml index 3e3b78a..a72b783 100644 --- a/src/Lib/Dom/Element.ml +++ b/src/Lib/Dom/Element.ml @@ -1,4 +1,6 @@ -external setValue : Dom.element -> string -> unit = "value" [@@bs.set] +external set_value : Dom.element -> string -> unit = "value" [@@bs.set] + +external value : Dom.element -> string = "value" [@@bs.get] external setTextContent : Dom.element -> string -> unit = "textContent" [@@bs.set] @@ -34,9 +36,9 @@ let removeFirstChild element = true | _ -> false -let rec removeChildren element = - if removeFirstChild element then removeChildren element else () +let rec remove_children element = + if removeFirstChild element then remove_children element else () -let mountOn base element = - let () = removeChildren base in +let mount_on base element = + let () = remove_children base in appendChild base element |