X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=lib%2Fwhenfile.ml;h=89a09b0460478bf79fe9c7be52c6df87f9623714;hp=8fdca1e438db30bc9548fe97532d4707a117fb3d;hb=df2cdcfdc29af0080b9b3eace17325d2a1d83e72;hpb=2701d3a832514ee94d110dfbd4f46f2ab6d9637e

diff --git a/lib/whenfile.ml b/lib/whenfile.ml
index 8fdca1e..89a09b0 100644
--- a/lib/whenfile.ml
+++ b/lib/whenfile.ml
@@ -27,15 +27,11 @@ let init () = jobs := []
 
 let add_when_job _loc name e sh =
   let e = expr_of_ast _loc e in
-  let job = { job_loc = _loc; job_name = name;
-              job_cond = When_job e; job_script = sh;
-              job_private = no_job_private } in
+  let job = make_when_job _loc name e sh in
   jobs := job :: !jobs
 
 let add_every_job _loc name e sh =
-  let job = { job_loc = _loc; job_name = name;
-              job_cond = Every_job e; job_script = sh;
-              job_private = no_job_private } in
+  let job = make_every_job _loc name e sh in
   jobs := job :: !jobs
 
 let get_jobs () =