From 79092e1463a807b5e4aac335ed7e92ccdb99674f Mon Sep 17 00:00:00 2001
From: Thomas Leonard <thomas.leonard@unikernel.com>
Date: Sat, 1 Oct 2016 10:47:19 +0100
Subject: [PATCH] Avoid using Lwt.join on listening threads

Lwt.join only reports an error if *both* threads fail.
---
 unikernel.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/unikernel.ml b/unikernel.ml
index e03380b..9e5eba3 100644
--- a/unikernel.ml
+++ b/unikernel.ml
@@ -26,7 +26,7 @@ module Main (Clock : V1.CLOCK) = struct
       ~client_eth
       ~uplink:(Uplink.interface uplink) in
     (* Handle packets from both networks *)
-    Lwt.join [
+    Lwt.choose [
       Client_net.listen router;
       Uplink.listen uplink router
     ]