From 347707d13bb9a4d49e395f49d0a8c9fe7e6c952b Mon Sep 17 00:00:00 2001 From: Xen hg user Date: Wed, 26 Jan 2011 17:39:04 +0000 Subject: [PATCH] [whitespace] Conservatively adjusts the whitespace for a commonly-edited list -- reducing the chance that future patches will conflict. Signed-off-by: Jonathan Knowles Proof that this patch introduces no semantic changes: camlp4o -printer o -no_comments $file: ocaml/idl/datamodel.ml 70610bebd0a11ed8787fbbbefeaa20a6 - 70610bebd0a11ed8787fbbbefeaa20a6 - PASS --- ocaml/idl/datamodel.ml | 45 +++++++++++++++++++++++++++++++++++------- 1 file changed, 38 insertions(+), 7 deletions(-) diff --git a/ocaml/idl/datamodel.ml b/ocaml/idl/datamodel.ml index f665e706..69d27aa7 100644 --- a/ocaml/idl/datamodel.ml +++ b/ocaml/idl/datamodel.ml @@ -6706,13 +6706,44 @@ let _ = Dm_api.check all_api (List.map (fun (obj,msg) -> obj.name, msg.msg_name) (** List of classes to skip generating async handlers for *) let no_async_messages_for = [ _session; _event; (* _alert; *) _task; _data_source; _blob ] -(** List of classes to generate 'get_all' messages for (currently we don't allow - a user to enumerate all the VBDs or VDIs directly: that must be through a VM - or SR *) -let expose_get_all_messages_for = [ _task; (* _alert; *) _host; _host_metrics; _hostcpu; _sr; _vm; _vm_metrics; _vm_guest_metrics; - _network; _vif; _vif_metrics; _pif; _pif_metrics; _pbd; _vdi; _vbd; _vbd_metrics; _console; - _crashdump; _host_crashdump; _host_patch; _pool; _sm; _pool_patch; _bond; _vlan; _blob; _subject; _role; _secret; _tunnel; _vmpp; ] - +(** List of classes to generate 'get_all' messages for. Currently we don't + ** allow a user to enumerate all the VBDs or VDIs directly: that must be + ** through a VM or SR. *) +let expose_get_all_messages_for = [ + _task; + (* _alert; *) + _host; + _host_metrics; + _hostcpu; + _sr; + _vm; + _vm_metrics; + _vm_guest_metrics; + _network; + _vif; + _vif_metrics; + _pif; + _pif_metrics; + _pbd; + _vdi; + _vbd; + _vbd_metrics; + _console; + _crashdump; + _host_crashdump; + _host_patch; + _pool; + _sm; + _pool_patch; + _bond; + _vlan; + _blob; + _subject; + _role; + _secret; + _tunnel; + _vmpp; +] let no_task_id_for = [ _task; (* _alert; *) _event ] -- 2.39.5