Add VGPU_type.{supported,enabled}_on_PGPUs to CLI

simonjbeaumont · johnelse · commit 02b051533abb · 2014-03-13T10:17:32.000Z
Signed-off-by: Si Beaumont &lt;simon.beaumont@citrix.com&gt;
diff --git a/ocaml/client_records/records.ml b/ocaml/client_records/records.ml
@@ -1606,6 +1606,10 @@ let vgpu_type_record rpc session_id vgpu_type =
 				~get:(fun () -> Int64.to_string (x ()).API.vGPU_type_framebuffer_size) ();
 			make_field ~name:"max-heads"
 				~get:(fun () -> Int64.to_string (x ()).API.vGPU_type_max_heads) ();
+			make_field ~name:"supported-on-PGPUs"
+				~get:(fun () -> String.concat "; " (List.map (fun p -> get_uuid_from_ref p) (x ()).API.vGPU_type_supported_on_PGPUs)) ();
+			make_field ~name:"enabled-on-PGPUs"
+				~get:(fun () -> String.concat "; " (List.map (fun p -> get_uuid_from_ref p) (x ()).API.vGPU_type_enabled_on_PGPUs)) ();
 			make_field ~name:"VGPU-uuids" ~get:(fun () -> String.concat "; " (List.map (fun v -> get_uuid_from_ref v) (x ()).API.vGPU_type_VGPUs)) ();
 		]
 	}

Original file line number	Diff line number	Diff line change
`@@ -1606,6 +1606,10 @@ let vgpu_type_record rpc session_id vgpu_type =`
`1606`	`1606`	`~get:(fun () -> Int64.to_string (x ()).API.vGPU_type_framebuffer_size) ();`
`1607`	`1607`	`make_field ~name:"max-heads"`
`1608`	`1608`	`~get:(fun () -> Int64.to_string (x ()).API.vGPU_type_max_heads) ();`
	`1609`	`+ make_field ~name:"supported-on-PGPUs"`
	`1610`	`+ ~get:(fun () -> String.concat "; " (List.map (fun p -> get_uuid_from_ref p) (x ()).API.vGPU_type_supported_on_PGPUs)) ();`
	`1611`	`+ make_field ~name:"enabled-on-PGPUs"`
	`1612`	`+ ~get:(fun () -> String.concat "; " (List.map (fun p -> get_uuid_from_ref p) (x ()).API.vGPU_type_enabled_on_PGPUs)) ();`
`1609`	`1613`	`make_field ~name:"VGPU-uuids" ~get:(fun () -> String.concat "; " (List.map (fun v -> get_uuid_from_ref v) (x ()).API.vGPU_type_VGPUs)) ();`
`1610`	`1614`	`]`
`1611`	`1615`	`}`