mirror of
https://github.com/fluencelabs/examples
synced 2024-12-14 07:15:39 +00:00
17 lines
483 B
Clojure
17 lines
483 B
Clojure
(xor
|
|
(seq
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call node_1 (service "am_i_owner") [] result)
|
|
; (call node_1 (service "get_tplet") [] result)
|
|
)
|
|
(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%])
|
|
)
|
|
) |