Improve

config.ml

@@ -1,7 +1,14 @@
 open Mirage
 
 let block = block_of_xenstore_id "51712"
-let fs = tar_kv_ro block
+let config = tar_kv_ro block
+let ethernet = etif default_network
+let arp = arp ethernet
+let ipv4 = ipv4_qubes default_qubesdb ethernet arp 
+let ipv6 = create_ipv6 default_network ethernet
+let ipv4_only = Runtime_arg.ipv4_only ~group:"sys-net" ()
+let ipv6_only = Runtime_arg.ipv4_only ~group:"sys-net" ()
+let stack = direct_stackv4v6 ~ipv4_only ~ipv6_only default_network ethernet arp ipv4 ipv6
 
 let main =
   main ~runtime_args:[]
@@ -19,13 +26,14 @@ let main =
         package "mirage-nat" ~min:"3.0.0";
       ]
     "Unikernel.Main"
-    (random @-> mclock @-> pclock @-> time @-> stackv4v6 @-> kv_ro @-> job)
+    (random @-> mclock @-> pclock @-> time @-> qubesdb @-> stackv4v6 @-> kv_ro @-> job)
 
 let () =
   register "qubes-unikernel"
     [
       main $ default_random $ default_monotonic_clock $ default_posix_clock
       $ default_time
-      $ generic_stackv4v6 default_network
-      $ fs;
+      $ default_qubesdb
+      $ stack
+      $ config;
     ]