aboutsummaryrefslogtreecommitdiff
path: root/src/View/Form
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/Form')
-rw-r--r--src/View/Form/Autocomplete.ml8
1 files changed, 4 insertions, 4 deletions
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
|]