Debug: added a simple eval

9fba8752 · Philippe Veber · 18183192 · 9fba8752
Commit 9fba8752 authored Jul 08, 2019 by Philippe Veber
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

lib/debug.ml lib/debug.ml +3 -0

No files found.
--- a/lib/debug.ml
+++ b/lib/debug.ml
@@ -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)