Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2024-10-01 01:05:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Avoid using Lwt.join on listening threads

Browse Source 
Lwt.join only reports an error if *both* threads fail.
This commit is contained in:
Thomas Leonard 2016-10-01 10:47:19 +01:00
parent 9c33da3bfd
commit 79092e1463
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
unikernel.ml
View File

@ -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
]