ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-23 00:21:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

added /womb/balance overview scry

Browse Source
This commit is contained in:
Anton Dyudin 2016-04-29 14:22:25 -07:00
parent 939ae10ea8
commit 9f155f7e8f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/womb.hoon
View File

@ -124,6 +124,7 @@
++ gilt :: scry result
$% {$ships (list ship)} ::
{$womb-balance balance} ::
{$womb-balance-all (map passcode mail)} ::
{$womb-stat stat} ::
{$womb-stat-all (map ship stat)} ::
==
@ -463,7 +464,11 @@
(~(urn by galaxies.office) stat-galaxy)
::
++ peek-x-balance :: inspect invitation
|= tyl/path ^- (unit (unit {$womb-balance balance}))
|= tyl/path
?~ tyl
?> |(=(our src) =([~ src] boss)) :: priveledged
``[%womb-balance-all (~(run by bureau) |=(balance owner))]
^- (unit (unit {$womb-balance balance}))
=+ pas=~|(bad-path+tyl (raid tyl pas=%p ~))
%- some
%+ bind (~(get by bureau) pas)
@ -490,6 +495,7 @@
:: /stats general stats dump
:: /stats/@p what we know about @p
$stats (peek-x-stats +.tyl)
:: /balance all invitations
:: /balance/passcode invitation status
$balance (peek-x-balance +.tyl)
==