Ensure when-stmt jobs always run in predictable (name) order.

diff --git a/daemon/daemon.ml b/daemon/daemon.ml
index 80f2cbd..3aee15a 100644 (file)
--- a/daemon/daemon.ml
+++ b/daemon/daemon.ml
@@ -181,6 +181,8 @@ and reevaluate_whenjobs jobnames =
   in
   let set = loop StringSet.empty jobnames in
   let jobnames = StringSet.elements set in
+  (* Ensure the jobs always run in predictable (name) order. *)
+  let jobnames = List.sort compare jobnames in
   List.iter run_job
     (List.map (fun jobname -> StringMap.find jobname !jobs) jobnames)