ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 20:31:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

btc-wallet: leave both subscriptions

Browse Source
This commit is contained in:
Logan Allen 2021-07-02 21:24:35 +00:00
parent b4ca02d911
commit 6acdbeeaaa
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkg/arvo/app/btc-wallet.hoon
View File

@ -89,7 +89,7 @@
==
%_ this
state
:* %1
:* %2
~
*(map xpub:bc walt)
*^btc-state
@ -122,8 +122,8 @@
%1
=? cards ?=(^ prov.ver)
:_ cards
=/ =dock [u.prov.ver %btc-provider]
=/ wir=wire /set-provider/(scot %p u.prov.ver)
=/ =dock [host.u.prov.ver %btc-provider]
=/ wir=wire /set-provider/(scot %p host.u.prov.ver)
=/ priv-wire=^wire (welp wir [%priv ~])
[%pass priv-wire %agent dock %watch /clients/(scot %p our.bowl)]
$(-.ver %2)
@ -168,22 +168,27 @@
?~ provider.comm
?~ prov `state
:_ state(prov ~)
%- zing
:~ (leave-provider host.u.prov)
(give-update:hc %change-provider ~)
(give-update:hc %change-provider ~)^~
==
:_ state(prov `[u.provider.comm %.n])
?~ prov
(watch-provider:hc u.provider.comm)
%- zing
:~ (leave-provider host.u.prov)^~
:~ (leave-provider host.u.prov)
(watch-provider:hc u.provider.comm)
(give-update:hc %change-provider `[u.provider.comm %.n])^~
==
::
++ leave-provider
|= who=@p
^- card
[%pass /set-provider/[(scot %p who)] %agent who^%btc-provider %leave ~]
^- (list card)
=/ wir=wire /set-provider/(scot %p who)
=/ priv-wir=wire (welp wir %priv^~)
:+ [%pass wir %agent who^%btc-provider %leave ~]
[%pass priv-wir %agent who^%btc-provider %leave ~]
~
--
::
%check-provider
@ -864,7 +869,7 @@
::
%tx-info
:: TODO: why do we get a nest-fail when using =^ ?
=/ [cards=(list card) sty=state-1]
=/ [cards=(list card) sty=state-2]
(handle-tx-info:hc info.p.upd)
:_ sty
:_ cards