X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fwhenfile.ml;fp=lib%2Fwhenfile.ml;h=83e0a074f3fa7045b41d5f7ee5344eb8fca447ac;hb=f3db678247d4ccc04c6ca1655e2eeec17e1bc169;hp=1617c29e08f372a8a8b930ae3e67fe0af5ecd97f;hpb=083f42734bf06c6a752e3a93e519c6250a04dd96;p=whenjobs.git

diff --git a/lib/whenfile.ml b/lib/whenfile.ml
index 1617c29..83e0a07 100644
--- a/lib/whenfile.ml
+++ b/lib/whenfile.ml
@@ -25,14 +25,14 @@ let state = ref Whenstate.empty
 
 let init s = state := s
 
-let add_when_job _loc name e sh =
+let add_when_job _loc name cleanup e sh =
   let e = expr_of_ast _loc e in
-  let job = { job_loc = _loc; job_name = name;
+  let job = { job_loc = _loc; job_name = name; job_cleanup = cleanup;
               job_cond = When_job e; job_script = sh } in
   state := Whenstate.add_job !state job
 
-let add_every_job _loc name e sh =
-  let job = { job_loc = _loc; job_name = name;
+let add_every_job _loc name cleanup e sh =
+  let job = { job_loc = _loc; job_name = name; job_cleanup = cleanup;
               job_cond = Every_job e; job_script = sh } in
   state := Whenstate.add_job !state job