urbit/sur/tapp.hoon
2019-06-26 10:45:52 -07:00

38 lines
855 B
Plaintext

|* [poke-data=mold out-peer-data=mold]
|%
::
:: Possible async calls
::
+$ card
$% [%wait wire @da]
[%rest wire @da]
[%poke wire dock poke-data]
[%peer wire dock path]
[%pull wire dock ~]
[%diff out-peer-data]
[%request wire request:http outbound-config:http-client]
[%cancel-request wire ~]
[%connect wire binding:http-server term]
[%http-response =http-event:http]
[%rule wire %turf %put turf]
==
::
:: Possible async responses
::
+$ sign
$% [%wake error=(unit tang)]
[%coup =dock error=(unit tang)]
[%quit =dock =path]
[%reap =dock =path error=(unit tang)]
[%bound success=? =binding:http-server]
[%http-response response=client-response:http-client]
==
::
:: Outstanding contracts
::
+$ contract
$% [%wait at=@da]
[%request ~]
==
--