X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=lib%2Fwhenstate.ml;h=b5784db335ab1781cd3ae652786cbed14086d7bd;hp=2bb030d4f76433a82e2a569e69136bd424a4a184;hb=d6da1b74e241e79eb0af9c01e390e98ceead3a49;hpb=57d21a4a716b513d93790262db4a663c169814bd

diff --git a/lib/whenstate.ml b/lib/whenstate.ml
index 2bb030d..b5784db 100644
--- a/lib/whenstate.ml
+++ b/lib/whenstate.ml
@@ -160,6 +160,9 @@ let get_everyjobs t =
 let get_job t jobname =
   StringMap.find jobname t.jobmap
 
+let get_job_names t =
+  List.map (function { job_name = name } -> name) t.jobs
+
 let evaluate_whenjob ?(onload = false) t job =
   match job with
   | { job_cond = Every_job _ } -> assert false