Fix printing signal numbers

Author: MisterDA

bin/admin.ml

@@ -65,8 +65,8 @@ let show () cap_path terse pool worker =
 let check_exit_status = function
   | Unix.WEXITED 0 -> ()
   | Unix.WEXITED x -> Fmt.failwith "Sub-process failed with exit code %d" x
-  | Unix.WSIGNALED x -> Fmt.failwith "Sub-process failed with signal %d" x
-  | Unix.WSTOPPED x -> Fmt.failwith "Sub-process stopped with signal %d" x
+  | Unix.WSIGNALED x -> Fmt.failwith "Sub-process failed with signal %a" Fmt.Dump.signal x
+  | Unix.WSTOPPED x -> Fmt.failwith "Sub-process stopped with signal %a" Fmt.Dump.signal x
 
 let exec () cap_path pool command =
   run cap_path @@ fun admin_service ->

bin/worker.ml

@@ -15,8 +15,8 @@ let or_die = function
 let check_exit_status = function
   | Unix.WEXITED 0 -> ()
   | Unix.WEXITED x -> Fmt.failwith "Sub-process failed with exit code %d" x
-  | Unix.WSIGNALED x -> Fmt.failwith "Sub-process failed with signal %d" x
-  | Unix.WSTOPPED x -> Fmt.failwith "Sub-process stopped with signal %d" x
+  | Unix.WSIGNALED x -> Fmt.failwith "Sub-process failed with signal %a" Fmt.Dump.signal x
+  | Unix.WSTOPPED x -> Fmt.failwith "Sub-process stopped with signal %a" Fmt.Dump.signal x
 
 module Self_update = struct
   let service = "builder_agent"