urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-09-17 15:17:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

vats: fix desk order

Browse Source
This commit is contained in:
Tinnus Napbus 2024-03-23 22:27:05 +13:00
parent bcb716f4cd
commit 5f45cda7d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/base-dev/sur/hood.hoon
View File

@ -77,7 +77,7 @@
%- zing
%+ turn
?^ desks
`(list desk)`desks
(flop desks)
%+ sort ~(tap in ~(key by tyr.prep))
|= [a=desk b=desk]
?: |(=(a %kids) =(b %base)) &
@ -91,7 +91,7 @@
?: |(=(a %kids) =(b %base)) &
?: |(=(a %base) =(b %kids)) |
(aor b a)
%+ murn `(list desk)`desks
%+ murn (flop desks)
|= des=desk
^- (unit [=desk =zest wic=(set weft)])
?~ got=(~(get by tyr.prep) des)