Implement cleanup functions, including 'mailto'.

[whenjobs.git] / lib / whenfile.ml

diff --git a/lib/whenfile.ml b/lib/whenfile.ml
index 1617c29..83e0a07 100644 (file)
--- 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