X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fwhenfile.ml;fp=lib%2Fwhenfile.ml;h=1617c29e08f372a8a8b930ae3e67fe0af5ecd97f;hb=f56882eb71425b2100edea0cabb478457a8a6a16;hp=b109e667938f35bd9b7d23b065d8938f051ba497;hpb=438813bcf327729f9dafc1a56c6cede550435e2e;p=whenjobs.git

diff --git a/lib/whenfile.ml b/lib/whenfile.ml
index b109e66..1617c29 100644
--- a/lib/whenfile.ml
+++ b/lib/whenfile.ml
@@ -36,4 +36,7 @@ let add_every_job _loc name e sh =
               job_cond = Every_job e; job_script = sh } in
   state := Whenstate.add_job !state job
 
+let set_variable name value =
+  state := Whenstate.set_variable !state name value
+
 let get_state () = !state