Simplify Xapi_vm.create: just refer to helper fn.

Instead of taking dozens of params and passing them on to
the helper function, now we just define Xapi_vm.create as
Xapi_vm_helpers.create.

Signed-off-by: Thomas Sanders <[email protected]>

Author: thomassa

ocaml/xapi/xapi_vm.ml

@@ -359,102 +359,7 @@ let resume_on  ~__context ~vm ~host ~start_paused ~force =
 	assert_host_is_localhost ~__context ~host;
 	resume ~__context ~vm ~start_paused ~force
 
-let create ~__context
-		~name_label
-		~name_description
-		~user_version
-		~is_a_template
-		~affinity
-		~memory_target
-		~memory_static_max
-		~memory_dynamic_max
-		~memory_dynamic_min
-		~memory_static_min
-		~vCPUs_params
-		~vCPUs_max
-		~vCPUs_at_startup
-		~actions_after_shutdown
-		~actions_after_reboot
-		~actions_after_crash
-		~pV_bootloader
-		~pV_kernel
-		~pV_ramdisk
-		~pV_args
-		~pV_bootloader_args
-		~pV_legacy_args
-		~hVM_boot_policy
-		~hVM_boot_params
-		~hVM_shadow_multiplier
-		~platform
-		~pCI_bus
-		~other_config
-		~recommendations
-		~xenstore_data
-		~ha_always_run
-		~ha_restart_priority
-		~tags
-		~blocked_operations
-		~protection_policy
-		~is_snapshot_from_vmpp
-		~appliance
-		~start_delay
-		~shutdown_delay
-		~order
-		~suspend_SR
-		~version
-		~generation_id
-		~hardware_platform_version
-		~auto_update_drivers
-		~has_vendor_device
-		: API.ref_VM =
-
-	create ~__context
-		~name_label
-		~name_description
-		~user_version
-		~is_a_template
-		~affinity
-		~memory_target
-		~memory_static_max
-		~memory_dynamic_max
-		~memory_dynamic_min
-		~memory_static_min
-		~vCPUs_params
-		~vCPUs_max
-		~vCPUs_at_startup
-		~actions_after_shutdown
-		~actions_after_reboot
-		~actions_after_crash
-		~pV_bootloader
-		~pV_kernel
-		~pV_ramdisk
-		~pV_args
-		~pV_bootloader_args
-		~pV_legacy_args
-		~hVM_boot_policy
-		~hVM_boot_params
-		~hVM_shadow_multiplier
-		~platform
-		~pCI_bus
-		~other_config
-		~recommendations
-		~xenstore_data
-		~ha_always_run
-		~ha_restart_priority
-		~tags
-		~blocked_operations
-		~protection_policy
-		~is_snapshot_from_vmpp
-		~appliance
-		~start_delay
-		~shutdown_delay
-		~order
-		~suspend_SR
-		~version
-		~generation_id
-		~hardware_platform_version
-		~auto_update_drivers
-		~has_vendor_device
+let create = create (* Use the function from Xapi_vm_helpers *)
 
 let destroy  ~__context ~self =
 	let parent = Db.VM.get_parent ~__context ~self in

ocaml/xapi/xapi_vm_helpers.ml

@@ -91,7 +91,7 @@ let create ~__context ~name_label ~name_description
 		~pV_kernel ~pV_ramdisk ~pV_args ~pV_bootloader_args ~pV_legacy_args
 		~hVM_boot_policy ~hVM_boot_params ~hVM_shadow_multiplier
 		~platform
-		~pCI_bus ~other_config ~xenstore_data ~recommendations
+		~pCI_bus ~other_config ~recommendations ~xenstore_data
 		~ha_always_run ~ha_restart_priority ~tags
 		~blocked_operations ~protection_policy
 		~is_snapshot_from_vmpp