16 lines
421 B
Clojure
Raw Permalink Normal View History

2021-04-09 22:50:07 -05:00
(xor
(seq
(seq
(call relay ("op" "identity") [])
2021-04-29 15:56:22 -05:00
(call node (service "greeting") [name] result)
2021-04-09 22:50:07 -05:00
)
(seq
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") [result])
)
)
(seq
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
)
)