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

Better logging of websocket connection failures.

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

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

@ -141,10 +141,12 @@
(lambda ()
(log-info "Connecting to ~a ~a" url (current-inexact-milliseconds))
(define c (with-handlers [(exn? values)] (ws-connect (string->url url))))
(log-info "Connected to ~a ~a" url (current-inexact-milliseconds))
(when (exn? c)
(log-info "Connection to ~a failed: ~a" url (exn->string c)))
(send-ground-message
(websocket-connection id local-addr remote-addr c control-ch))
(when (not (exn? c))
(log-info "Connected to ~a ~a" url (current-inexact-milliseconds))
(connection-thread-loop control-ch c id))))
(spawn (lambda (e buffered-messages-rev)
(match e