[whitespace] Repairing whitespace within the Features module.

Signed-off-by: Jonathan Knowles <jonathan.knowles@eu.citrix.com>
Proof that this patch introduces no semantic changes:

camlp4o -printer o -no_comments $file:

ocaml/license/features.ml
    26a618732a366e603aa87b3788f0e84e -
    26a618732a366e603aa87b3788f0e84e - PASS
ocaml/license/features.mli
    f778551b861102e29dbdbefe8c90329b -
    f778551b861102e29dbdbefe8c90329b - PASS

diff --git a/ocaml/license/features.ml b/ocaml/license/features.ml
index f7988b533e3408eca68843f9a811b509e7b78c97..e414703b242cbc96735f38ec7d3cbc48bdda1922 100644 (file)
--- a/ocaml/license/features.ml
+++ b/ocaml/license/features.ml
@@ -17,9 +17,27 @@ open D
 
 (* Features and restrictions *)
 
-type feature = VLAN | QoS | Shared_storage | Netapp | Equalogic | Pooling
-       | HA | Marathon | Email | Performance | WLB | RBAC | DMC | Checkpoint
-       | Vswitch_controller | CPU_masking | Connection | No_platform_filter | No_nag_dialog | VMPR
+type feature =
+       | VLAN
+       | QoS
+       | Shared_storage
+       | Netapp
+       | Equalogic
+       | Pooling
+       | HA
+       | Marathon
+       | Email
+       | Performance
+       | WLB
+       | RBAC
+       | DMC
+       | Checkpoint
+       | Vswitch_controller
+       | CPU_masking
+       | Connection
+       | No_platform_filter
+       | No_nag_dialog
+       | VMPR
 
 type orientation = Positive | Negative
 

diff --git a/ocaml/license/features.mli b/ocaml/license/features.mli
index 48cdb2c074e242bc0d0913bb7e928d01fb05afb3..c207f3d8407d683fc52772a8fbe49d0f96c2636b 100644 (file)
--- a/ocaml/license/features.mli
+++ b/ocaml/license/features.mli
@@ -17,30 +17,30 @@
 
 (** Features than can be enabled and disabled. *)
 type feature =
-| VLAN                                 (** Enable VLAN. Currently not used. *)
-| QoS                                  (** Enable QoS control. Currently not used. *)
-| Shared_storage               (** Enable shared storage. Currently not used? *)
-| Netapp                               (** Enable use of NetApp SRs *)
-| Equalogic                            (** Enable use of Equalogic SRs *)
-| Pooling                              (** Enable pooling of hosts *)
-| HA                                   (** Enable High Availability (HA) *)
-| Marathon                             (** Currently not used *)
-| Email                                        (** Enable email alerting *)
-| Performance                  (** Currently not used? *)
-| WLB                                  (** Enable Workload Balancing (WLB) *)
-| RBAC                                 (** Enable Role-Based Access Control (RBAC) *)
-| DMC                                  (** Enable Dynamic Memory Control (DMC) *)
-| Checkpoint                   (** Enable Checkpoint functionality *)
-| Vswitch_controller   (** Enable use of a Distributed VSwitch (DVS) Controller *)
-| CPU_masking                  (** Enable masking of CPU features *)
-| Connection                   (** Used by XenCenter *)
-| No_platform_filter   (** Filter platform data *)
-| No_nag_dialog                        (** Used by XenCenter *)
-| VMPR                                 (** Enable use of VM Protection and Recovery *)
-       
+       | VLAN                         (** Enable VLAN. Currently not used. *)
+       | QoS                          (** Enable QoS control. Currently not used. *)
+       | Shared_storage               (** Enable shared storage. Currently not used? *)
+       | Netapp                       (** Enable use of NetApp SRs *)
+       | Equalogic                    (** Enable use of Equalogic SRs *)
+       | Pooling                      (** Enable pooling of hosts *)
+       | HA                           (** Enable High Availability (HA) *)
+       | Marathon                     (** Currently not used *)
+       | Email                        (** Enable email alerting *)
+       | Performance                  (** Currently not used? *)
+       | WLB                          (** Enable Workload Balancing (WLB) *)
+       | RBAC                         (** Enable Role-Based Access Control (RBAC) *)
+       | DMC                          (** Enable Dynamic Memory Control (DMC) *)
+       | Checkpoint                   (** Enable Checkpoint functionality *)
+       | Vswitch_controller           (** Enable use of a Distributed VSwitch (DVS) Controller *)
+       | CPU_masking                  (** Enable masking of CPU features *)
+       | Connection                   (** Used by XenCenter *)
+       | No_platform_filter           (** Filter platform data *)
+       | No_nag_dialog                (** Used by XenCenter *)
+       | VMPR                         (** Enable use of VM Protection and Recovery *)
+
 (** The list of all known features. *)
 val all_features : feature list
-       
+
 (** Returns a compact list of the current restrictions. *)
 val to_compact_string : feature list -> string
 
@@ -55,4 +55,3 @@ val is_enabled : __context:Context.t -> feature -> bool
 
 (** Update the pool-level restrictions list in the database. *)
 val update_pool_features : __context:Context.t -> unit
-