miragesdk: tune down some debug code

Signed-off-by: Thomas Gazagnaire <thomas@gazagnaire.org>
This commit is contained in:
Thomas Gazagnaire 2017-04-12 11:03:54 +02:00
parent df9833ed68
commit 396ffabc41

View File

@ -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 ->