syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Switch to federated-link-ready

This commit is contained in:
Tony Garnock-Jones 2019-06-11 18:47:56 +01:00
parent be0dc5413b
commit c0ff69f67e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/distributed/federation.rkt
View File

@ -111,8 +111,8 @@
(push-out p))
(define (wrap p) (message-poa->server session-id p))
(during (server-envelope management-scope (observe (message-poa->server session-id _)))
(during (from-server peer-addr (observe (message-poa->server session-id _)))
(during (server-envelope management-scope (federated-link-ready session-id))
(during (from-server peer-addr (federated-link-ready session-id))
(drain-in (lambda (p) (send! (server-proposal management-scope (wrap p)))))
(drain-out (lambda (p) (send! (to-server peer-addr (wrap p)))))))))))
@ -302,6 +302,7 @@
[_ (void)]))))
(during (server-envelope management-scope (federated-link $linkid scope))
(assert (server-proposal management-scope (federated-link-ready linkid)))
(define turn (turn-recorder
(lambda (items)

1
syndicate/distributed/internal-protocol.rkt
View File

@ -26,3 +26,4 @@
;; Federated links generally
(assertion-struct federated-link (id scope))
(assertion-struct federated-link-ready (id))