Commit 8df64b36 authored by Philippe Veber's avatar Philippe Veber
Browse files

Debug: print error messages (otherwise they are truncated)

parent f80aec39
......@@ -9,8 +9,14 @@ let with_workflow w ~f =
let sched = create ~np:8 ~mem:(`GB 8) ~loggers db in
let thread = eval_exn sched w in
start sched ;
Lwt_main.run thread
|> f
try
Lwt_main.run thread
|> f
with Failure msg -> (
print_endline msg ;
failwith "Failed!"
)
| exn -> raise exn
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