ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 12:22:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

hood: add base hash to non-verb +vats output

Browse Source
This commit is contained in:
silnem2 2023-04-21 15:13:46 -06:00
parent d363f01080
commit e52ca71c6b
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -138,10 +138,12 @@
|= [=weft =tape] |= [=weft =tape]
(welp " {<[lal num]:weft>}" tape) (welp " {<[lal num]:weft>}" tape)
?. verb ?. verb
:~ leaf/"/sys/kelvin: {kul}" =/ base-hash ?.(=(1 (lent meb)) <meb> <(head meb)>)
leaf/"%cz hash ends in: {(slag (sub (lent <hash>) 5) <hash>)}" :~ leaf/"/sys/kelvin: {kul}"
leaf/"app status: {sat}" leaf/"base hash ends in: {(slag (sub (lent base-hash) 5) base-hash)}"
leaf/"pending updates: {<`(list [@tas @ud])`~(tap in wic.dek)>}" leaf/"%cz hash ends in: {(slag (sub (lent <hash>) 5) <hash>)}"
leaf/"app status: {sat}"
leaf/"pending updates: {<`(list [@tas @ud])`~(tap in wic.dek)>}"
== ==
:~ leaf/"/sys/kelvin: {kul}" :~ leaf/"/sys/kelvin: {kul}"
leaf/"base hash: {?.(=(1 (lent meb)) <meb> <(head meb)>)}" leaf/"base hash: {?.(=(1 (lent meb)) <meb> <(head meb)>)}"
@ -181,7 +183,7 @@
=/ syd (scot %tas desk) =/ syd (scot %tas desk)
=/ yon (scot %ud aeon) =/ yon (scot %ud aeon)
:: ::
=/ dom .^(dome cv/~[her syd yon]) =/ dom .^(domo cv/~[her syd yon])
=/ tak ~| aeons=~(key by hit.dom) =/ tak ~| aeons=~(key by hit.dom)
(scot %uv (~(got by hit.dom) aeon)) (scot %uv (~(got by hit.dom) aeon))
=/ yak .^(yaki cs/~[her syd yon %yaki tak]) =/ yak .^(yaki cs/~[her syd yon %yaki tak])