urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-26 05:23:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

btc-provider: style cleanup while checking logic line for line

Browse Source
This commit is contained in:
Logan Allen 2021-06-25 11:15:09 -05:00
parent 78a75b2e54
commit 14141af044
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkg/arvo/app/btc-provider.hoon
View File

@ -74,27 +74,25 @@
^- (quip card _state) ^- (quip card _state)
?- -.comm ?- -.comm
%set-credentials %set-credentials
:- :~ do-ping:hc :_ state(host-info [api-url.comm %.n network.comm 0 *(set ship)])
:~ do-ping:hc
(start-ping-timer:hc ~s30) (start-ping-timer:hc ~s30)
== ==
%_ state
host-info
[api-url.comm connected=%.n network.comm block=0 clients=*(set ship)]
==
:: ::
%add-whitelist %add-whitelist
:- ~
?- -.wt.comm ?- -.wt.comm
%public %public
`state(public.whitelist %.y) state(public.whitelist %.y)
:: ::
%kids %kids
`state(kids.whitelist %.y) state(kids.whitelist %.y)
:: ::
%users %users
`state(users.whitelist (~(uni in users.whitelist) users.wt.comm)) state(users.whitelist (~(uni in users.whitelist) users.wt.comm))
:: ::
%groups %groups
`state(groups.whitelist (~(uni in groups.whitelist) groups.wt.comm)) state(groups.whitelist (~(uni in groups.whitelist) groups.wt.comm))
== ==
:: ::
%remove-whitelist %remove-whitelist
@ -134,10 +132,10 @@
++ handle-action ++ handle-action
|= act=action |= act=action
^- (quip card _state) ^- (quip card _state)
:_ state
?. ?|(connected.host-info ?=(%ping -.act)) ?. ?|(connected.host-info ?=(%ping -.act))
~& >>> "Not connected to RPC" ~& >>> "Not connected to RPC"
[~[(send-update:hc [%| %not-connected 500])] state] ~[(send-update:hc [%| %not-connected 500])]
:_ state
:_ ~ :_ ~
%+ req-card act %+ req-card act
^- action:rpc-types ^- action:rpc-types
@ -326,8 +324,10 @@
(~(has in users.whitelist) user) (~(has in users.whitelist) user)
in-group in-group
== ==
::
++ is-kid ++ is-kid
=(our.bowl (sein:title our.bowl now.bowl user)) =(our.bowl (sein:title our.bowl now.bowl user))
::
++ in-group ++ in-group
=/ gs ~(tap in groups.whitelist) =/ gs ~(tap in groups.whitelist)
|- |-
@ -335,7 +335,6 @@
?: (~(is-member groupl bowl) user i.gs) ?: (~(is-member groupl bowl) user i.gs)
%.y %.y
$(gs t.gs) $(gs t.gs)
:: .^((unit group:g) %gx ;:(weld /=group-store=/groups p /noun))
-- --
:: ::
++ is-client ++ is-client