mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-05-05 08:54:27 -04:00
42bf837113
* add Trace_lwt optional library provides a with_span that's lwt friendly, as well as a ambient span provider. * test: extract recorder used for ambient tests * tests for trace.lwt * opam
10 lines
294 B
OCaml
10 lines
294 B
OCaml
(* When trace.lwt is unavailable, echo the expected file
|
|
so the diff always passes. The file is passed as argv[1] by the dune rule. *)
|
|
let () =
|
|
let ic = open_in Sys.argv.(1) in
|
|
(try
|
|
while true do
|
|
print_char (input_char ic)
|
|
done
|
|
with End_of_file -> ());
|
|
close_in ic
|