After an IPC error, wait a second before retrying.

This avoids a rapid spin loop that generally makes the operating system and the user most unhappy.
andrenth · Dec 2, 2013 · eaec2ae · eaec2ae
1 parent d1ec148
commit eaec2ae
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib_test/helper.ml b/lib_test/helper.ml
@@ -27,7 +27,8 @@ let main fd =
       | `Response (SlaveIpcOps.Broadcast s) ->
           Lwt_log.notice_f "got broadcast: %s" s
       | _ ->
-          Lwt_log.error "helper IPC error" in
+          lwt () = Lwt_log.error "helper IPC error" in
+          Lwt_unix.sleep 1.0 in
       bcast_ipc () in
     bcast_ipc () in
   ctrl_ipc_t <&> bcast_ipc_t

diff --git a/lib_test/slave.ml b/lib_test/slave.ml
@@ -19,7 +19,8 @@ let rec consume_ipc fd =
   | `Response (SlaveIpcOps.Resp1 i | SlaveIpcOps.Resp2 i) ->
       Lwt_log.notice_f "got response: %d" i
   | `Timeout | `EOF ->
-      Lwt_log.error "direct IPC error" in
+      lwt () = Lwt_log.error "direct IPC error" in
+      Lwt_unix.sleep 1.0 in
   consume_ipc fd
 
 let rec produce_ipc fd =