From 2cb752123d15916496e872c9fbd423c788c86c64 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 8 Aug 2020 21:11:57 +0200
Subject: Remove unused color modal

---
 src/View/Map/Marker.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/View/Map/Marker.ml')

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