diff options
Diffstat (limited to 'src/View/Form.ml')
| -rw-r--r-- | src/View/Form.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/View/Form.ml b/src/View/Form.ml index 53fbb7d..cec49d6 100644 --- a/src/View/Form.ml +++ b/src/View/Form.ml @@ -1,4 +1,4 @@ -let input id label init_value on_input = +let input id label attrs = H.div [| HA.class_ "g-Form__Field" |] [| H.div @@ -8,10 +8,7 @@ let input id label init_value on_input = [| H.text label |] |] ; H.input - [| HA.id id - ; HE.on_input (fun e -> on_input (Element.value (Event.target e))) - ; HA.value init_value - |] + (HA.concat attrs [| HA.id id |]) [| |] |] |