Terminate federation link facet on receipt of Err

2019-06-13 12:51:11 +01:00 · 2019-06-13 12:51:11 +01:00 · 68ba310327
parent 2512d68852
commit 68ba310327
1 changed files with 10 additions and 0 deletions
--- 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))]