diff options
Diffstat (limited to 'src/View/Form')
| -rw-r--r-- | src/View/Form/Autocomplete.ml | 8 |
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 |] |