Accept and discard "Pong" replies from clients

2019-05-16 12:38:06 +01:00 · 2019-05-16 12:38:06 +01:00 · 7ec9752f41
parent af40134c53
commit 7ec9752f41
1 changed files with 1 additions and 0 deletions
--- a/syndicate/distributed/server.rkt
+++ b/syndicate/distributed/server.rkt
@ -70,4 +70,5 @@
    [(Connect _) (send-error! id 'duplicate-connection-setup)]
    [(Peer _) (send-error! id 'duplicate-connection-setup)]
    [(Ping) (send! (message-server->poa id (Pong)))]
+    [(Pong) (void)]
    [_ (send-error! id 'invalid-message)]))