Skip to content

Commit 7cfd87e

Browse files
committed
fixup! CP-52997: Update tgroup.mli
1 parent b0ad68c commit 7cfd87e

1 file changed

Lines changed: 5 additions & 1 deletion

File tree

ocaml/libs/tgroup/tgroup.ml

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -411,7 +411,11 @@ let of_req_originator originator =
411411
let () = Cgroup.set_cgroup creator in
412412
let group = Description.of_creator creator in
413413
Some group
414-
with _ -> None
414+
with exn ->
415+
warn
416+
"setting the tgroup based on http request header failed with\n\
417+
\ exception: %s" (Printexc.to_string exn) ;
418+
None
415419

416420
let of_creator creator =
417421
let () = Cgroup.set_cgroup creator in

0 commit comments

Comments
 (0)