[Xen-API] [PATCH] [CP-1698] Extends the set of valid HA restart priorities to include "0"

[Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>]

# HG changeset patch
# User Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>
# Date 1281359934 -3600
# Node ID 438384899071c1859633a732023087500ccaa1e9
# Parent  4e63a3be9a54df13d1b3b47273112e83b321a931
[CP-1698] Extends the set of valid HA restart priorities to include "0".

Signed-off-by: Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>

diff -r 4e63a3be9a54 -r 438384899071 ocaml/xapi/xapi_pool.ml
--- a/ocaml/xapi/xapi_pool.ml   Mon Aug 09 14:18:40 2010 +0100
+++ b/ocaml/xapi/xapi_pool.ml   Mon Aug 09 14:18:54 2010 +0100
@@ -1004,7 +1004,7 @@
 
 let ha_compute_hypothetical_max_host_failures_to_tolerate ~__context 
~configuration = 
   (* Check the restart priorities all look valid *)
-  let valid_priorities = [ "1"; "2"; "3"; Constants.ha_restart_best_effort ] in
+  let valid_priorities = [ "0"; "1"; "2"; "3"; 
Constants.ha_restart_best_effort ] in
   List.iter (fun (_, pri) -> 
               if not(List.mem pri valid_priorities)
               then raise (Api_errors.Server_error(Api_errors.invalid_value, [ 
"ha_restart_priority"; pri ]))) configuration;
1 file changed, 1 insertion(+), 1 deletion(-)
ocaml/xapi/xapi_pool.ml |    2 +-

Attachment: xen-api.hg.patch
Description: Text Data

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