From c083f15e141315d8e4142d93997737b72d3e648d Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Wed, 10 Sep 2025 14:53:56 -0500 Subject: T7737: drop message debug logging for now --- src/message.ml | 4 ---- src/message.mli | 2 ++ 2 files changed, 2 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/message.ml b/src/message.ml index d4cc374..5b508eb 100644 --- a/src/message.ml +++ b/src/message.ml @@ -13,18 +13,14 @@ let read ic = let header = Bytes.create 4 in let%lwt () = Lwt_io.read_into_exactly ic header 0 4 in let length = EndianBytes.BigEndian.get_int32 header 0 |> Int32.to_int in - Lwt_log.debug (Printf.sprintf "Read length: %d\n" length) |> Lwt.ignore_result; if length < 0 then failwith (Printf.sprintf "Bad message length: %d" length) else let buffer = Bytes.create length in let%lwt () = Lwt_io.read_into_exactly ic buffer 0 length in - Lwt_log.debug (hexdump buffer |> Printf.sprintf "Read mesage: %s") |> Lwt.ignore_result; Lwt.return buffer let write oc msg = let length = Bytes.length msg in let length' = Int32.of_int length in - Lwt_log.debug (Printf.sprintf "Write length: %d\n" length) |> Lwt.ignore_result; - Lwt_log.debug (hexdump msg |> Printf.sprintf "Write message: %s") |> Lwt.ignore_result; if length' < 0l then failwith (Printf.sprintf "Bad message length: %d" length) else let header = Bytes.create 4 in let () = EndianBytes.BigEndian.set_int32 header 0 length' in diff --git a/src/message.mli b/src/message.mli index ec44c56..2d5baa7 100644 --- a/src/message.mli +++ b/src/message.mli @@ -1,3 +1,5 @@ val read : Lwt_io.input_channel -> bytes Lwt.t val write : Lwt_io.output_channel -> bytes -> unit Lwt.t + +val hexdump : bytes -> string -- cgit v1.2.3