build error in xenops

diff --git a/xenvm/xenops.ml b/xenvm/xenops.ml
index 55cb2a5f6f936c09be5740a9bfbee86f956658d2..239d1cb24c1b8a4187bfb0e2c81067c99d822144 100644 (file)
--- a/xenvm/xenops.ml
+++ b/xenvm/xenops.ml
@@ -83,7 +83,7 @@ let build_domain ~xc ~xs ~kernel ?(ramdisk=None) ~cmdline ~domid ~vcpus ~mem_max
        printf "built domain: %u\n" domid
 
 let build_hvm ~xc ~xs ~kernel ~domid ~vcpus ~mem_max_kib ~mem_target_kib ~pae ~apic ~acpi ~nx ~smbios_pt ~acpi_pt ~viridian =
-       let (_: Domain.domarch) = Domain.build_hvm xc xs mem_max_kib mem_target_kib 1.
+       let (_: Domain.domarch) = Domain.build_hvm xc xs mem_max_kib mem_target_kib None 1.
                                                   vcpus kernel pae apic acpi nx smbios_pt acpi_pt viridian
                                                   "0" None None None domid in
        printf "built hvm domain: %u\n" domid