debug string

This commit is contained in:
Eitan Chatav 2016-11-18 15:59:56 -08:00
parent abb9e19260
commit c52146cb71

View File

@ -415,9 +415,10 @@ module Make (P: PARAMS) = struct
Crypto_box.check_proof_of_work Crypto_box.check_proof_of_work
public_key proof_of_work Crypto_box.default_target in public_key proof_of_work Crypto_box.default_target in
if not work_proved then if not work_proved then
(*debug "connection rejected (invalid proof of work)" begin
pp_gid my_gid Ipaddr.pp_hum addr port ;*) debug "connection rejected (invalid proof of work)";
cancel () cancel ()
end
else else
begin match common_version P.supported_versions versions with begin match common_version P.supported_versions versions with
| None -> | None ->