diff options
| author | Enrico Tassi | 2019-01-09 11:14:21 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-01-09 11:14:21 +0100 |
| commit | 7f2e50319d77d09ecc9fdbd6695dd9c92f8389d0 (patch) | |
| tree | a65c7019fa61fe34def2b08537d87824137f1a4a /stm | |
| parent | 2c4c8357a701ddd7bc8ee73a5c457d3844948867 (diff) | |
| parent | 77bcabbc36c54f3146882885c84b940622da9314 (diff) | |
Merge PR #9316: Fix #3934: coqc -time -quick gives unreadable output
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 27feac9adb..4a1e64eb4a 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2017,7 +2017,7 @@ end = struct (* {{{ *) find ~time:false ~batch:false ~fail:false e in let st = Vernacstate.freeze_interp_state ~marshallable:false in Vernacentries.with_fail st fail (fun () -> - (if time then System.with_time ~batch else (fun x -> x)) (fun () -> + (if time then System.with_time ~batch ~header:(Pp.mt ()) else (fun x -> x)) (fun () -> ignore(TaskQueue.with_n_workers nworkers (fun queue -> Proof_global.with_current_proof (fun _ p -> let Proof.{goals} = Proof.data p in |