From 0ba6bac01b33ab9bc0fbe9787e98c914a6483a27 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 10 Jun 2021 16:46:28 +0200 Subject: [PATCH] Clean up relay logging --- syndicate/relay.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/syndicate/relay.rkt b/syndicate/relay.rkt index 191f6c4..c4e3919 100644 --- a/syndicate/relay.rkt +++ b/syndicate/relay.rkt @@ -16,6 +16,8 @@ (require "schemas/gen/protocol.rkt") (require (prefix-in sturdy: "schemas/gen/sturdy.rkt")) +(define-logger syndicate/relay) + ;;--------------------------------------------------------------------------- (struct inbound (local-handle imported)) @@ -146,8 +148,7 @@ (match (parse-Turn packet) [(? eof-object?) (error 'handle-packet "Invalid IO.Turn")] [(Turn wire-turn) - (log-info "IN (raw): ~v" packet) - (log-info "IN (parsed): ~v" (Turn wire-turn)) + (log-syndicate/relay-debug "--> ~a" (preserve->string packet)) (for [(ev (in-list wire-turn))] (match-define (TurnEvent (Oid oid) event) ev) (define r (lookup-local tr oid)) @@ -189,8 +190,8 @@ (lambda () (define pending (Turn (reverse (tunnel-relay-pending-turn-rev tr)))) (set-tunnel-relay-pending-turn-rev! tr '()) - (log-info "OUT (parsed): ~v" pending) - (log-info "OUT (raw): ~v" (->preserve pending)) + (log-syndicate/relay-debug "<-- ~a" + (preserve->string (->preserve pending))) (parse-Turn! (->preserve pending)) ((tunnel-relay-packet-writer tr) (preserve->bytes (->preserve pending)