mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-10-01 05:05:39 +00:00
Avoid using Lwt.join on listening threads
Lwt.join only reports an error if *both* threads fail.
This commit is contained in:
parent
9c33da3bfd
commit
79092e1463
@ -26,7 +26,7 @@ module Main (Clock : V1.CLOCK) = struct
|
|||||||
~client_eth
|
~client_eth
|
||||||
~uplink:(Uplink.interface uplink) in
|
~uplink:(Uplink.interface uplink) in
|
||||||
(* Handle packets from both networks *)
|
(* Handle packets from both networks *)
|
||||||
Lwt.join [
|
Lwt.choose [
|
||||||
Client_net.listen router;
|
Client_net.listen router;
|
||||||
Uplink.listen uplink router
|
Uplink.listen uplink router
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user