X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=daemon%2Fdaemon.ml;h=925ad7e299d97f231ca138f570b2ba0584a75ddb;hp=ac0f1ff7e7f5ffb45791f6ae82d631144f6d47a1;hb=2f2b5efdf699e4bc0723079dcd2f68a0fd44ce07;hpb=9a137583b1fd5e6705ac116045db3b583834e838

diff --git a/daemon/daemon.ml b/daemon/daemon.ml
index ac0f1ff..925ad7e 100644
--- a/daemon/daemon.ml
+++ b/daemon/daemon.ml
@@ -192,6 +192,7 @@ and reload_file () =
     | exn ->
       failwith (Printexc.to_string exn) in
 
+  let s = Whenstate.copy_prev_state !state s in
   state := s;
 
   (* Re-evaluate all when jobs. *)