From 2936f06576997bffe7903ea840df563a408efc21 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 9 Aug 2020 18:46:05 +0200
Subject: Improve autocompletion usage

---
 src/View/Form.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/View/Form.ml')

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