From 22a517f1b5e8a120ec02aca068975cfbf3ce4999 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 16 May 2019 12:38:26 +0100 Subject: [PATCH] Handle "Ping" requests from peers in federated mode --- syndicate/distributed/federation.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/syndicate/distributed/federation.rkt b/syndicate/distributed/federation.rkt index db63a04..6695f95 100644 --- a/syndicate/distributed/federation.rkt +++ b/syndicate/distributed/federation.rkt @@ -321,6 +321,9 @@ (on (message (message-poa->server linkid (Del $localid $captures))) (relay-add-or-del localid captures -1 'present->absent Del)) + (on (message (message-poa->server linkid (Ping))) + (send! (message-server->poa linkid (Pong)))) + (on (message (message-poa->server linkid (Msg $localid $captures))) (call-with-sub localid linkid