[Xen-API] [PATCH] allow the CLI to change the name-description of Hosts

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1272301358 -3600
# Node ID e35090f9c6f46ad0bb16e2fa8fcaa8acb95c5050
# Parent  b0d21e08987fac6769b7c4b1d6bcd165eb228d8d
CA-40763: allow the CLI to change the name-description of Hosts.

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r b0d21e08987f -r e35090f9c6f4 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml   Mon Apr 26 18:02:18 2010 +0100
+++ b/ocaml/client_records/records.ml   Mon Apr 26 18:02:38 2010 +0100
@@ -869,7 +869,7 @@
   [
     make_field ~name:"uuid"                ~get:(fun () -> (x 
()).API.host_uuid) ();
     make_field ~name:"name-label"          ~get:(fun () -> (x 
()).API.host_name_label) ~set:(fun s -> Client.Host.set_name_label rpc 
session_id host s) ();
-    make_field ~name:"name-description"    ~get:(fun () -> (x 
()).API.host_name_description) ();
+    make_field ~name:"name-description"    ~get:(fun () -> (x 
()).API.host_name_description) ~set:(fun s -> Client.Host.set_name_description 
rpc session_id host s) ();
     make_field ~name:"allowed-operations"
       ~get:(fun () -> String.concat "; " (List.map 
Record_util.host_operation_to_string (x ()).API.host_allowed_operations)) 
       ~get_set:(fun () -> List.map Record_util.host_operation_to_string (x 
()).API.host_allowed_operations) ();
1 file changed, 1 insertion(+), 1 deletion(-)
ocaml/client_records/records.ml |    2 +-

xen-api.hg.patch
Description: Text Data

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api