Verified Commit ac64b06b authored by François Thiré's avatar François Thiré Committed by Mehdi Bouaziz

p2p_connect_handler: Add a log message when connection is rejected

Currently, when the connection is rejected, an explanation is
printed only when there is an explanation with a Nack. We print
the trace for the other cases.
parent 179bc1c0
......@@ -423,7 +423,7 @@ let raw_authenticate t ?point_info canceler fd point =
:: _ ->
lwt_debug
"@[<v 2> Connection to %a rejected by peer. @[Motive : %[email protected]]. \
@[Peer list received :%[email protected]]"
@[Peer list received :%[email protected]]@]"
P2p_point.Id.pp
point
P2p_rejection.pp
......@@ -438,7 +438,14 @@ let raw_authenticate t ?point_info canceler fd point =
points ;
Lwt.return_unit
| _ ->
Lwt.return_unit )
lwt_debug
"@[<v 2> Connection to %a rejected by peer. Stack trace: \
@[%[email protected]]@]"
P2p_point.Id.pp
point
Error_monad.pp_print_error
err
>>= fun () -> Lwt.return_unit )
>>= fun () ->
lwt_debug
"authenticate: %a -> rejected %a"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment