From 931c54df6a02b27d044dda1273c7bc1fe4e95d38 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 15 May 2016 06:50:47 -0400 Subject: [PATCH] It is expected that outbound connection supply should drop. --- racket/syndicate/drivers/tcp.rkt | 6 +++++- racket/syndicate/drivers/websocket.rkt | 6 +++++- 2 files changed, 10 insertions(+), 2 deletions(-) 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