# 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;