diff options
| author | Joris | 2020-08-08 21:11:57 +0200 |
|---|---|---|
| committer | Joris | 2020-08-08 21:11:57 +0200 |
| commit | 2cb752123d15916496e872c9fbd423c788c86c64 (patch) | |
| tree | a9db0b21d963f0f12ce0cfb6dc446a77ea964741 /src/View/Map | |
| parent | 38e42723a916b7d5c2a15e514b3f3e6dcab398dd (diff) | |
Remove unused color modal
Diffstat (limited to 'src/View/Map')
| -rw-r--r-- | src/View/Map/Marker.ml | 7 |
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)) |