Something went wrong. Try again.
An adversarial testing framework for OCaml HTTP/1.1 clients and servers
Something went wrong. Try again.
1234567891011121314151617type 'control action = | Send of Transport.t | Wait_ms of int | Control of 'control
type 'control t = 'control action Nonempty.t
val of_list : 'control action list -> ('control t, string) resultval to_list : 'control t -> 'control action list
val compile : send:(Transport.t -> ('action list, string) result) -> wait_ms:(int -> 'action) -> control:('control -> 'action) -> 'control t -> ('action list, string) result