bistro: added constructor for static path lists

pveber · Dec 18, 2018 · b1211eb · b1211eb
1 parent 6ceec7b
commit b1211eb
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/lib/bistro.ml b/lib/bistro.ml
@@ -23,6 +23,8 @@ module Workflow = struct
   let spawn2 x y ~f =
     zip x y
     |> spawn ~f:(fun p -> f (fst p) (snd p))
+
+  let eval_paths xs = list (List.map xs ~f:eval_path)
 end
 
 

diff --git a/lib/bistro.mli b/lib/bistro.mli
@@ -187,6 +187,9 @@ module Workflow : sig
 
   val eval_path : 'a path workflow -> string workflow
 
+  val eval_paths :
+    'a path workflow list -> string list workflow
+
   val list :
     'a workflow list -> 'a list workflow