From 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jul 2020 18:16:59 +0200
Subject: Allow to customize icons

---
 src/Lib/Dom/Element.ml | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'src/Lib/Dom/Element.ml')

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
-- 
cgit v1.2.3