From 68ba310327dfc08c442ce12832aff5c86b1dfaed Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 13 Jun 2019 12:51:11 +0100 Subject: [PATCH] Terminate federation link facet on receipt of Err --- syndicate/distributed/federation.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/syndicate/distributed/federation.rkt b/syndicate/distributed/federation.rkt index 8891b87..1ed9c3f 100644 --- a/syndicate/distributed/federation.rkt +++ b/syndicate/distributed/federation.rkt @@ -346,6 +346,16 @@ local captures))) (log-syndicate/federation-debug "-"))) + (stop-when + (message (server-envelope management-scope + (message-poa->server linkid (Err $detail $context)))) + (log-syndicate/federation-error + "Received Err from peer link ~v: detail ~v; context ~v" + linkid + detail + context) + (reset-turn! turn)) + (on (message (server-envelope management-scope (message-poa->server linkid (Turn $items)))) (for [(item (in-list items))]