fix unattached doc comments

This commit is contained in:
Frédéric Bour 2020-06-07 10:37:50 +02:00
parent 75f4072ac8
commit de82afccac
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni

Vedi File

@ -603,10 +603,10 @@ let toggle, toggle' =
in
Lwd.map2 mk_but (Lwd.get st) lbl
in
(** Similar to {!toggle}, except it directly reflects the state of a variable. *)
(* Similar to {!toggle}, except it directly reflects the state of a variable. *)
let toggle' (lbl:string Lwd.t) (v:bool Lwd.var) : Ui.t Lwd.t =
toggle_ v lbl (Lwd.set v)
(** a toggle, with a true/false state *)
(* a toggle, with a true/false state *)
and toggle ?(init=false) (lbl:string Lwd.t) (f:bool -> unit) : Ui.t Lwd.t =
let st = Lwd.var init in
toggle_ st lbl f