29 lines
490 B
OCaml
29 lines
490 B
OCaml
[%%xlog_import]
|
|
|
|
module Submodule = struct
|
|
[%%xlog_import]
|
|
|
|
let do_stuff () =
|
|
[%xlog warn "meow"]
|
|
end
|
|
|
|
let () =
|
|
Xlog.init_pretty_writer stdout ~min_level:Xlog.DEBUG;
|
|
[%xlog info "meow meow %s %d" "test string" 1337];
|
|
begin try
|
|
failwith "meow2"
|
|
with
|
|
| e -> [%xlog exn e "oop's %d" 42069]
|
|
end;
|
|
[%xlog info "awa"];
|
|
Submodule.do_stuff ()
|
|
|
|
module Submodule2 = struct
|
|
[%%xlog_import]
|
|
|
|
let do_stuff () =
|
|
[%xlog warn "meow"]
|
|
end
|
|
|
|
let () = Submodule2.do_stuff ()
|