aboutsummaryrefslogtreecommitdiff
path: root/src/View/Map
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/Map')
-rw-r--r--src/View/Map/Marker.ml7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/View/Map/Marker.ml b/src/View/Map/Marker.ml
index 80072af..c628c3a 100644
--- a/src/View/Map/Marker.ml
+++ b/src/View/Map/Marker.ml
@@ -36,7 +36,12 @@ let form on_validate colors init_name init_color init_icon =
[| HA.value init_icon |]
"g-MarkerForm__IconInput"
FontAwesome.icons
- (fun icon -> [| H.div [| HA.class_ ("fa fa-" ^ icon) |] [| |] ; H.text icon |])
+ (fun icon ->
+ [| H.div
+ [| HA.class_ ("g-MarkerForm__IconEntry fa fa-" ^ icon) |]
+ [| |]
+ ; H.text icon
+ |])
(fun newIcon ->
let () = icon := newIcon in
Element.set_class_name dom_icon ("fa fa-" ^ newIcon))