Commit 9fba8752 authored by Philippe Veber's avatar Philippe Veber
Browse files

Debug: added a simple eval

parent 18183192
......@@ -18,6 +18,9 @@ let with_workflow w ~f =
)
| exn -> raise exn
let eval w =
with_workflow w ~f:Fn.id
let path w =
with_workflow (Workflow.eval_path w) ~f:(fun x -> x)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment