ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +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 %_ this
state state
:* %1 :* %2
~ ~
*(map xpub:bc walt) *(map xpub:bc walt)
*^btc-state *^btc-state
@ -122,8 +122,8 @@
%1 %1
=? cards ?=(^ prov.ver) =? cards ?=(^ prov.ver)
:_ cards :_ cards
=/ =dock [u.prov.ver %btc-provider] =/ =dock [host.u.prov.ver %btc-provider]
=/ wir=wire /set-provider/(scot %p u.prov.ver) =/ wir=wire /set-provider/(scot %p host.u.prov.ver)
=/ priv-wire=^wire (welp wir [%priv ~]) =/ priv-wire=^wire (welp wir [%priv ~])
[%pass priv-wire %agent dock %watch /clients/(scot %p our.bowl)] [%pass priv-wire %agent dock %watch /clients/(scot %p our.bowl)]
$(-.ver %2) $(-.ver %2)
@ -168,22 +168,27 @@
?~ provider.comm ?~ provider.comm
?~ prov `state ?~ prov `state
:_ state(prov ~) :_ state(prov ~)
%- zing
:~ (leave-provider host.u.prov) :~ (leave-provider host.u.prov)
(give-update:hc %change-provider ~) (give-update:hc %change-provider ~)^~
== ==
:_ state(prov `[u.provider.comm %.n]) :_ state(prov `[u.provider.comm %.n])
?~ prov ?~ prov
(watch-provider:hc u.provider.comm) (watch-provider:hc u.provider.comm)
%- zing %- zing
:~ (leave-provider host.u.prov)^~ :~ (leave-provider host.u.prov)
(watch-provider:hc u.provider.comm) (watch-provider:hc u.provider.comm)
(give-update:hc %change-provider `[u.provider.comm %.n])^~ (give-update:hc %change-provider `[u.provider.comm %.n])^~
== ==
:: ::
++ leave-provider ++ leave-provider
|= who=@p |= who=@p
^- card ^- (list card)
[%pass /set-provider/[(scot %p who)] %agent who^%btc-provider %leave ~] =/ 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 %check-provider
@ -864,7 +869,7 @@
:: ::
%tx-info %tx-info
:: TODO: why do we get a nest-fail when using =^ ? :: 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) (handle-tx-info:hc info.p.upd)
:_ sty :_ sty
:_ cards :_ cards