btc-wallet: moved +on-peek for clarity

This commit is contained in:
Logan Allen 2021-06-24 12:45:29 -05:00
parent cf5a704347
commit c3bf4c2770

View File

@ -622,29 +622,6 @@
==
--
::
++ on-peek
~/ %on-peek
|= pax=path
^- (unit (unit cage))
?+ pax (on-peek:def pax)
[%x %configured ~]
=/ provider=json
?~ prov ~
[%s (scot %p host.u.prov)]
=/ result=json
%- pairs:enjs:format
:~ [%provider provider]
[%'hasWallet' b+?=(^ walts)]
==
``json+!>(result)
::
[%x %scanned ~]
``noun+!>(scanned-wallets:hc)
::
[%x %balance @ ~]
``noun+!>((balance:hc (xpub:bc +>-.pax)))
==
::
++ on-agent
~/ %on-agent
|= [=wire =sign:agent:gall]
@ -1002,6 +979,29 @@
--
--
::
++ on-peek
~/ %on-peek
|= pax=path
^- (unit (unit cage))
?+ pax (on-peek:def pax)
[%x %configured ~]
=/ provider=json
?~ prov ~
[%s (scot %p host.u.prov)]
=/ result=json
%- pairs:enjs:format
:~ [%provider provider]
[%'hasWallet' b+?=(^ walts)]
==
``json+!>(result)
::
[%x %scanned ~]
``noun+!>(scanned-wallets:hc)
::
[%x %balance @ ~]
``noun+!>((balance:hc (xpub:bc +>-.pax)))
==
::
++ on-watch
~/ %on-watch
|= =path