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

Make sure to advertise presence even during connection establishment, since otherwise the user actor may hang indefinitely.

This commit is contained in:
Tony Garnock-Jones 2016-05-15 06:55:39 -04:00
parent 0f1fabddfb
commit c29ae059ff
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -160,8 +160,14 @@
[_ #f]))
'()
(patch-seq
(sub (websocket-connection id local-addr remote-addr ? control-ch) #:meta-level 1)
(sub (websocket-message local-addr remote-addr ?)))))
(pub (websocket-message remote-addr local-addr ?))
;; ^ important to assert this here. If we don't, and the
;; connection fails, then the requesting user client actor
;; will hang indefinitely waiting for a sign the connection
;; has been established. This way, if the connection fails,
;; it looks like it came up briefly and went down again.
(sub (websocket-message local-addr remote-addr ?))
(sub (websocket-connection id local-addr remote-addr ? control-ch) #:meta-level 1))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Connection