Terminate federation link facet on receipt of Err
This commit is contained in:
parent
2512d68852
commit
68ba310327
|
@ -346,6 +346,16 @@
|
||||||
local captures)))
|
local captures)))
|
||||||
(log-syndicate/federation-debug "-")))
|
(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
|
(on (message (server-envelope management-scope
|
||||||
(message-poa->server linkid (Turn $items))))
|
(message-poa->server linkid (Turn $items))))
|
||||||
(for [(item (in-list items))]
|
(for [(item (in-list items))]
|
||||||
|
|
Loading…
Reference in New Issue