Fix issue ocaml#3737

Signed-off-by: Alan Hu <[email protected]>
alan-j-hu · Sep 16, 2020 · 3d7719b · 3d7719b
1 parent 6b825fa
commit 3d7719b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/dune_engine/scheduler.ml b/src/dune_engine/scheduler.ml
@@ -702,10 +702,10 @@ end = struct
     let fiber =
       Fiber.Var.set t_var t (fun () -> Fiber.with_error_handler f ~on_error)
     in
-    Console.Status_line.set (Fun.const None);
     match Fiber.run fiber ~iter with
     | res ->
       assert (Event.pending_jobs () = 0);
+      Console.Status_line.set (Fun.const None);
       Ok res
     | exception Abort err -> Error err
     | exception exn -> Error (Exn (Exn_with_backtrace.capture exn))