fix compilation

dao.ml

@@ -139,4 +139,4 @@ let print_network_config config =
         Ipaddr.V4.pp config.ip Ipaddr.V4.pp (fst config.dns) Ipaddr.V4.pp
         (snd config.dns))
 
-let set_iptables_error db = Qubes.DB.write db "/qubes-iptables-error"
+let _set_iptables_error db = Qubes.DB.write db "/qubes-iptables-error"

unikernel.ml

@@ -1,5 +1,3 @@
-open Qubes
-
 let ( let* ) = Lwt.bind
 let ( % ) f g = fun x -> f (g x)
 
@@ -150,9 +148,8 @@ struct
       | exn -> Lwt.fail exn
     in
     Finaliser.add ~finaliser:(fun () -> Lwt.cancel listener) finalisers;
-    let rec transmit =
+    let transmit =
       let rec fn () =
-        let open Lwt.Syntax in
         Lwt_stream.get (fst ic) >>= function
         | Some packet -> (snd t.ic) (Some (vif, packet)); fn ()
         | None -> Lwt.return_unit in
@@ -214,7 +211,7 @@ struct
           msg Cstruct.hexdump_pp cs);
         Lwt.return fragments
       | Ok (hdr, payload) ->
-        let fragments, packet = Fragments.process fragments now hdr payload in
+        let fragments, _packet = Fragments.process fragments now hdr payload in
         let packet = Nat.of_ipv4 hdr payload in
         let packet = Option.map (Mirage_nat_lru.translate table) packet in
         let packet = Option.map Result.to_option packet in

vif.ml

@@ -50,7 +50,7 @@ type t =
   ; ip : Client_ip.t
   ; domid : int }
 
-let make backend { Dao.Client_vif.domid; device_id } ~gateway ipaddr =
+let make backend { Dao.Client_vif.domid; _ } ~gateway ipaddr =
   let open Lwt.Syntax in
   let* ethernet = Client_ethernet.connect backend in
   let ((my_mac, your_mac) as mac) =