shrub/pkg/arvo/gen/hood/norm.hoon

13 lines
350 B
Plaintext
Raw Normal View History

2022-04-13 07:02:37 +03:00
:: Add rule to tombstone policy
::
2022-04-09 07:32:14 +03:00
:- %say
|= [[now=@da eny=@uvJ bec=beak] [=ship =desk =path keep=? ~] ~]
:- %helm-pass
=/ =case:clay
?: =(p.bec ship)
da+now
=+ .^([=@ud @da] %cs /(scot %p ship)/[desk]/1/late)
ud+ud
=+ .^(=dome:clay %cv /(scot %p ship)/[desk]/(scot case))
2022-04-23 03:55:42 +03:00
[%c %tomb %norm ship desk (~(put of nor.dome) path keep)]