Don't block switching to a different edition when HA is enabled (#6880)

It assumes that the switching will not cause any differences on the
availability of features required by HA.

Author: robhoes

ocaml/xapi/xapi_host.ml

@@ -2149,21 +2149,13 @@ let apply_edition_internal ~__context ~host ~edition ~additional =
     ~additional:new_ed.additional_params
 
 let apply_edition ~__context ~host ~edition ~force =
-  (* if HA is enabled do not allow the edition to be changed *)
-  let pool = Helpers.get_pool ~__context in
-  if
-    Db.Pool.get_ha_enabled ~__context ~self:pool
-    && edition <> Db.Host.get_edition ~__context ~self:host
-  then
-    raise (Api_errors.Server_error (Api_errors.ha_is_enabled, []))
-  else
-    let additional =
-      if force then
-        [("force", "true")]
-      else
-        []
-    in
-    apply_edition_internal ~__context ~host ~edition ~additional
+  let additional =
+    if force then
+      [("force", "true")]
+    else
+      []
+  in
+  apply_edition_internal ~__context ~host ~edition ~additional
 
 let license_add ~__context ~host ~contents =
   let license =