# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
CP-1589: Expose Pool.restrictions in CLI

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>

diff -r 05bae5ed3a81 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml	Fri Feb 05 11:08:59 2010 +0000
+++ b/ocaml/client_records/records.ml	Fri Feb 05 16:38:54 2010 +0000
@@ -411,7 +411,8 @@
     ~remove_from_map:(fun k -> Client.Pool.remove_from_gui_config rpc session_id pool k)
     ~get_map:(fun () -> (x ()).API.pool_gui_config)
     ~expensive:true ();
-  make_field ~name:"vswitch-controller" ~hidden:true ~get:(fun () -> let r = (x ()).API.pool_vswitch_controller in if r = "" then "<not set>" else r) ()
+  make_field ~name:"vswitch-controller" ~hidden:true ~get:(fun () -> let r = (x ()).API.pool_vswitch_controller in if r = "" then "<not set>" else r) ();
+  make_field ~name:"restrictions" ~get:(fun () -> Record_util.s2sm_to_string "; " (x ()).API.pool_restrictions) ();
 ]}
 
 let subject_record rpc session_id subject =