From 38e42723a916b7d5c2a15e514b3f3e6dcab398dd Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 8 Aug 2020 21:04:28 +0200
Subject: Propose already defined colors in the form

---
 src/View/Form/Autocomplete.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/View/Form')

diff --git a/src/View/Form/Autocomplete.ml b/src/View/Form/Autocomplete.ml
index 324a834..2770e16 100644
--- a/src/View/Form/Autocomplete.ml
+++ b/src/View/Form/Autocomplete.ml
@@ -7,7 +7,7 @@ let render_completion render_entry on_select entries =
     [| HA.class_ "g-Autocomplete__Completion" |]
     (entries
       |> Js.Array.map (fun c ->
-          H.button
+          Button.raw
             [| HA.class_ "g-Autocomplete__Entry"
             ;  HA.type_ "button"
             ;  HE.on_click (fun e ->
@@ -41,7 +41,8 @@ let create attrs id values render_entry on_input =
   H.div
     [| HA.class_ "g-Autocomplete" |]
     [| H.input
-      (Js.Array.concat
+      (HA.concat
+        attrs
         [| HA.id id
         ; HA.class_ "g-Autocomplete__Input"
         ; HA.autocomplete "off"
@@ -59,8 +60,7 @@ let create attrs id values render_entry on_input =
               (fun _ -> hide_completion ())
               100
             in ())
-        |]
-        attrs)
+        |])
       [| |]
     ;  completion
     |]
-- 
cgit v1.2.3