LTerm_read_line: fix synchronization

ocaml-community · May 6, 2020 · c6dda3c · c6dda3c
1 parent 40b2092
commit c6dda3c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lTerm_read_line.ml b/src/lTerm_read_line.ml
@@ -1163,7 +1163,7 @@ object(self)
   (* The main loop. *)
   method private loop =
     Lwt.pick [
-      Lwt.(>|=) (LTerm.read_event term) (fun ev-> Ev ev);
+      (Lwt.pause () >>= fun ()-> Lwt.(>|=) (LTerm.read_event term) (fun ev-> Ev ev));
       Lwt.(>|=) (Lwt_mvar.take result) (fun r-> Loop_result r);
       Lwt.(>|=) (Lwt_mvar.take self#interrupt) (fun e-> Interrupted e);
       ]