and config = {mode : Mew_vi.Mode.Name.t React.signal;set_mode : ?step:React.step -> Mew_vi.Mode.Name.t -> unit;keyseq : keyseq React.signal;set_keyseq : ?step:React.step -> keyseq -> unit;mutable resolver_insert : t;mutable resolver_normal : t;mutable resolver_visual : t;mutable resolver_command : t;}and result = | Accept of Edit_action.t * keyseq * Mew_vi.Mode.Name.t| Continue of t * status * keyseq| Rejected of keyseqval resolver_dummy : tval resolver_insert : tmodule Common : sig ... endmodule Normal : sig ... endmodule Visual : sig ... endval interpret :
?resolver:t ->
?keyseq:keyseq ->
config ->
status ->
Base.Key.t Lwt_mvar.t ->
Edit_action.t Lwt_mvar.t ->
unit ->
'a Lwt.t