# HG changeset patch
# User Jonathan Davies <jonathan.davies@xxxxxxxxxx>
# Date 1294409894 0
# Node ID 5e6b5da4604978f7fa9660dd37ed7a2050f4c0db
# Parent  dd7e1f8d25ff8d75000725cc053d007cb2c838e2
Fix indentation of declaration of various fields in the datamodel.

Signed-off-by: Jonathan Davies <jonathan.davies@xxxxxxxxxx>

diff -r dd7e1f8d25ff -r 5e6b5da46049 ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml	Thu Oct 28 17:01:05 2010 +0100
+++ b/ocaml/idl/datamodel.ml	Fri Jan 07 14:18:14 2011 +0000
@@ -4230,7 +4230,7 @@
 	])
 	()
 
- let pbd_set_device_config = call
+let pbd_set_device_config = call
    ~name:"set_device_config"
    ~in_oss_since:None
    ~in_product_since:rel_miami
@@ -4358,7 +4358,7 @@
 	  "vdi_clone", "Cloneing a VDI"; 
 	  "vdi_snapshot", "Snapshotting a VDI" ])
 
- let sr_set_virtual_allocation = call
+let sr_set_virtual_allocation = call
    ~name:"set_virtual_allocation"
    ~in_oss_since:None
    ~in_product_since:rel_miami
@@ -4369,7 +4369,7 @@
    ~allowed_roles:_R_POOL_OP
    ()
 
- let sr_set_physical_size = call
+let sr_set_physical_size = call
    ~name:"set_physical_size"
    ~in_oss_since:None
    ~in_product_since:rel_miami
@@ -4380,7 +4380,7 @@
    ~allowed_roles:_R_POOL_OP
    ()
 
- let sr_set_physical_utilisation = call
+let sr_set_physical_utilisation = call
    ~name:"set_physical_utilisation"
    ~in_oss_since:None
    ~in_product_since:rel_miami
@@ -4391,7 +4391,7 @@
    ~allowed_roles:_R_POOL_OP
    ()
 
- let sr_update = call
+let sr_update = call
    ~name:"update"
    ~in_oss_since:None
    ~in_product_since:rel_symc
@@ -4400,7 +4400,7 @@
    ~allowed_roles:_R_POOL_OP
    ()
 
- let sr_assert_can_host_ha_statefile = call
+let sr_assert_can_host_ha_statefile = call
    ~name:"assert_can_host_ha_statefile"
    ~in_oss_since:None
    ~in_product_since:rel_orlando
@@ -4409,7 +4409,7 @@
    ~allowed_roles:_R_POOL_OP
    ()
 
- let sr_lvhd_stop_using_these_vdis_and_call_script = call
+let sr_lvhd_stop_using_these_vdis_and_call_script = call
    ~name:"lvhd_stop_using_these_vdis_and_call_script"
    ~in_oss_since:None
    ~in_product_since:rel_george
@@ -4622,7 +4622,7 @@
   ~allowed_roles:_R_VM_ADMIN
    ()  
 
- let vdi_set_read_only = call
+let vdi_set_read_only = call
    ~name:"set_read_only"
    ~in_oss_since:None
    ~in_product_since:rel_rio
@@ -4633,7 +4633,7 @@
   ~allowed_roles:_R_VM_ADMIN
    ()
 
- let vdi_set_sharable = call
+let vdi_set_sharable = call
    ~name:"set_sharable"
    ~in_oss_since:None
    ~in_product_since:rel_george
@@ -4644,7 +4644,7 @@
   ~allowed_roles:_R_VM_ADMIN
    ()
 
- let vdi_set_managed = call
+let vdi_set_managed = call
    ~name:"set_managed"
    ~in_oss_since:None
 	 ~in_product_since:rel_rio
@@ -4655,7 +4655,7 @@
   ~allowed_roles:_R_VM_ADMIN
    ()
  
- let vdi_set_virtual_size = call
+let vdi_set_virtual_size = call
    ~name:"set_virtual_size"
    ~in_oss_since:None
    ~in_product_since:rel_miami
@@ -4666,7 +4666,7 @@
   ~allowed_roles:_R_VM_ADMIN
    ()
 
- let vdi_set_physical_utilisation = call
+let vdi_set_physical_utilisation = call
    ~name:"set_physical_utilisation"
    ~in_oss_since:None
    ~in_product_since:rel_miami
@@ -4678,7 +4678,7 @@
    ()
 
 (** An API call for debugging and testing only *)
- let vdi_generate_config = call
+let vdi_generate_config = call
    ~name:"generate_config"
    ~in_oss_since:None
    ~in_product_since:rel_orlando
@@ -4693,7 +4693,7 @@
 let on_boot = Enum ("on_boot", [ "reset", "The VDI will be reset to the state it was in at the last clone";
 "persist", "The VDIs contents are persistent" ])
 
- let vdi_set_on_boot = call
+let vdi_set_on_boot = call
 	 ~name:"set_on_boot"
 	 ~in_oss_since:None
 	 ~in_product_since:rel_cowley