Merge pull request mirage#75 from lnmx/fix-accept

move listen_tcpv4 callback to an async thread
samoht · Nov 2, 2014 · 8acbaed · 8acbaed
2 parents 8c8770b + 9272ffc
commit 8acbaed
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/unix/tcpip_stack_socket.ml b/unix/tcpip_stack_socket.ml
@@ -106,9 +106,12 @@ module Make(Console:V1_LWT.CONSOLE) = struct
         if true then loop () else return_unit in
       Lwt_unix.accept fd
       >>= fun (afd, _) ->
-      Lwt.catch
-        (fun () -> callback afd)
-        (fun _ -> return_unit)
+      Lwt.async (fun () ->
+        Lwt.catch
+          (fun () -> callback afd)
+          (fun _ -> return_unit)
+        );
+        return_unit
       >>= fun () ->
       continue ();
     in