From e99e80b1508248c1c122a1962b5d0753a23fd6fa Mon Sep 17 00:00:00 2001 From: palainp Date: Fri, 30 Jun 2023 17:57:08 +0200 Subject: [PATCH] only set clients when we have a correct netvm IP address --- unikernel.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/unikernel.ml b/unikernel.ml index 708fe53..227e75a 100644 --- a/unikernel.ml +++ b/unikernel.ml @@ -54,9 +54,6 @@ module Main (R : Mirage_random.S)(Clock : Mirage_clock.MCLOCK)(Time : Mirage_tim Dao.read_network_config qubesDB >>= fun config -> (* config.netvm_ip might be 0.0.0.0 if there's no netvm provided via Qubes *) - (* Set up client-side networking *) - Client_eth.create config >>= fun clients -> - let connect_if_netvm = if config.netvm_ip <> (Ipaddr.V4.make 0 0 0 0) then ( Uplink.connect config >>= fun uplink -> @@ -79,6 +76,9 @@ module Main (R : Mirage_random.S)(Clock : Mirage_clock.MCLOCK)(Time : Mirage_tim Dao.print_network_config config ; assert(config.netvm_ip <> (Ipaddr.V4.make 0 0 0 0)); + (* Set up client-side networking *) + Client_eth.create config >>= fun clients -> + (* Set up routing between networks and hosts *) let router = Router.create ~config