646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
14 lines
493 B
Diff
14 lines
493 B
Diff
diff --git a/src/elpi_trace_elaborator.ml b/src/elpi_trace_elaborator.ml
|
|
index ca13114d..093e7593 100644
|
|
--- a/src/elpi_trace_elaborator.ml
|
|
+++ b/src/elpi_trace_elaborator.ml
|
|
@@ -664,6 +664,6 @@ let main =
|
|
|
|
let cards = Trace.cards steps ~stack_frames ~aggregated_goal_success ~goal_text ~goal_attempts in
|
|
|
|
- let ob = Bi_outbuf.create_channel_writer stdout in
|
|
+ let ob = Buffer.create 17 in
|
|
write_trace ob cards;
|
|
- Bi_outbuf.flush_channel_writer ob
|
|
+ Buffer.output_buffer stdout ob
|