Add comment about input issue

voodoos · Oct 15, 2024 · de8ec58 · de8ec58
1 parent 1cba61e
commit de8ec58
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/vendor/brr_lwd_ui/lib/forms/field.ml b/vendor/brr_lwd_ui/lib/forms/field.ml
@@ -50,6 +50,8 @@ let make_input ~(value : Jv.t -> 'a) ?validate ?d ?(at = []) ?ev
   in
   let validate = Option.value validate ~default:(fun v -> Ok v) in
   let on_change, value =
+    (* TODO this does not work very well: sometime the event don't fire and some
+       input is missing. *)
     make_handler ~value ~value_change_event default_value
   in
   let ev = `P on_change :: Option.to_list ev in