diff --git a/racket/syndicate/drivers/tcp.rkt b/racket/syndicate/drivers/tcp.rkt index d92ab06..eab2c8d 100644 --- a/racket/syndicate/drivers/tcp.rkt +++ b/racket/syndicate/drivers/tcp.rkt @@ -41,7 +41,11 @@ spawn-tcp-listener) (spawn-demand-matcher (advertise (tcp-channel (?! (tcp-handle ?)) (?! (tcp-address ? ?)) ?)) (observe (tcp-channel (?! (tcp-handle ?)) (?! (tcp-address ? ?)) ?)) - spawn-tcp-connection))) + spawn-tcp-connection + (lambda (local-addr remote-addr) + (log-debug "Outbound TCP connection closed: ~v -> ~v" + local-addr + remote-addr))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Listener diff --git a/racket/syndicate/drivers/websocket.rkt b/racket/syndicate/drivers/websocket.rkt index 61aec27..715d01c 100644 --- a/racket/syndicate/drivers/websocket.rkt +++ b/racket/syndicate/drivers/websocket.rkt @@ -59,7 +59,11 @@ spawn-websocket-listener) (spawn-demand-matcher (advertise outbound-conn-message-pat) (observe outbound-conn-message-pat) - spawn-websocket-connection))) + spawn-websocket-connection + (lambda (local-addr remote-addr) + (log-debug "Outbound websocket connection closed: ~v -> ~v" + local-addr + remote-addr))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Listener