Module Arrow.Helpers

module type S = sig ... end
val make : driver:('input, 'result) Bonsai_test__.Driver.t -> sexp_of_result:('result -> Core.Sexp.t) -> (module S with type action = Core.Nothing.t and type input = 'input)
val make_with_inject : driver: ('input, 'result * ('action -> unit Ui_effect.t)) Bonsai_test__.Driver.t -> sexp_of_result:('result -> Core.Sexp.t) -> (module S with type action = 'action and type input = 'input)
val make_string : driver:('input, string) Bonsai_test__.Driver.t -> (module S with type action = Core.Nothing.t and type input = 'input)
val make_string_with_inject : driver: ('input, string * ('action -> unit Ui_effect.t)) Bonsai_test__.Driver.t -> (module S with type action = 'action and type input = 'input)