syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

It is expected that outbound connection supply should drop.

This commit is contained in:
Tony Garnock-Jones 2016-05-15 06:50:47 -04:00
parent 1f8b3eeb3f
commit 931c54df6a
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/drivers/tcp.rkt
View File

@ -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

6
racket/syndicate/drivers/websocket.rkt
View File

@ -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