From 396ffabc41276834f3020619ad1905f04f2eb526 Mon Sep 17 00:00:00 2001 From: Thomas Gazagnaire Date: Wed, 12 Apr 2017 11:03:54 +0200 Subject: [PATCH] miragesdk: tune down some debug code Signed-off-by: Thomas Gazagnaire --- projects/miragesdk/src/sdk/IO.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/projects/miragesdk/src/sdk/IO.ml b/projects/miragesdk/src/sdk/IO.ml index 142583844..7271e8962 100644 --- a/projects/miragesdk/src/sdk/IO.ml +++ b/projects/miragesdk/src/sdk/IO.ml @@ -45,8 +45,8 @@ let forward ~src ~dst = Log.err (fun l -> l "forward[%a => %a] %a" pp src pp dst pp_error e); Lwt.return_unit | Ok (`Data buf) -> - Log.debug (fun l -> l "forward[%a => %a] @[%S@]" - pp src pp dst @@ Cstruct.to_string buf); + Log.debug (fun l -> l "forward[%a => %a] %d bytes" + pp src pp dst @@ Cstruct.len buf); write dst buf >>= function | Ok () -> loop () | Error e ->