shrub/pkg/arvo/gen/gall-nonces.hoon

11 lines
281 B
Plaintext

:: +gall-nonces: print %gall agent subscription nonces, highest-last
::
:- %say
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
:- %noun
^- (list [dude:gall @ud])
%+ sort
%~ tap by
.^((map dude:gall @ud) %gf /(scot %p p.bec)//(scot %da now)/$)
|=([[* a=@ud] [* b=@ud]] (lth a b))