diff --git a/test/t1.ml b/test/t1.ml index 7bf599d..aabc361 100644 --- a/test/t1.ml +++ b/test/t1.ml @@ -1,6 +1,6 @@ let run () = for _i = 1 to 50 do - Trace.with_span ~__FUNCTION__ ~__FILE__ ~__LINE__ "outer.loop" @@ fun _sp -> + Trace.with_span ~__FILE__ ~__LINE__ "outer.loop" @@ fun _sp -> for _j = 2 to 5 do Trace.with_span ~__FILE__ ~__LINE__ "inner.loop" @@ fun _sp -> Trace.messagef ~__FILE__ ~__LINE__ (fun k -> k "hello %d %d" _i _j)