Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-09-24 06:44:53 -04:00
Code Issues Projects Releases Packages Wiki Activity

do not forget to disconnect layers

Browse source
This commit is contained in:
palainp 2023-07-16 18:37:38 +02:00
parent 1ad5644553
commit 27236eafac
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
dispatcher.ml
View file

@ -515,6 +515,12 @@ struct
currently we delay 1s as Netif.disconnect is non-blocking... (need to fix upstream?) *) currently we delay 1s as Netif.disconnect is non-blocking... (need to fix upstream?) *)
Log.info (fun f -> Log.info (fun f ->
f "disconnecting from our uplink"); f "disconnecting from our uplink");
U.disconnect uplink.udp;
I.disconnect uplink.ip;
(* mutable fragments : Fragments.Cache.t; *)
(* interface : interface; *)
Arp.disconnect uplink.arp;
UplinkEth.disconnect uplink.eth;
Netif.disconnect uplink.net; Netif.disconnect uplink.net;
Lwt_condition.broadcast router.uplink_disconnected (); Lwt_condition.broadcast router.uplink_disconnected ();
Lwt.return_unit Lwt.return_unit