arvo: add %uv hash case to scry paths

Clay desparately wants something like this. It helps answer questions
around hash-based content fetching.
This commit is contained in:
fang 2022-05-11 16:16:03 +02:00
parent 80958c70a0
commit bb7e74c1e9
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
3 changed files with 5 additions and 0 deletions

View File

@ -39,10 +39,12 @@
$% :: %da: date
:: %tas: label
:: %ud: sequence
:: %uv: hash
::
[%da p=@da]
[%tas p=@tas]
[%ud p=@ud]
[%uv p=@uv]
==
+$ cage (cask vase)
++ cask |$ [a] (pair mark a)
@ -313,6 +315,7 @@
^- (unit case)
?^ num=(slaw %ud knot) `[%ud u.num]
?^ wen=(slaw %da knot) `[%da u.wen]
?^ hax=(slaw %uv knot) `[%uv u.hax]
?~ lab=(slaw %tas knot) ~
`[%tas u.lab]
::

View File

@ -1754,6 +1754,7 @@
$% [%da p=@da] :: date
[%tas p=@tas] :: label
[%ud p=@ud] :: number
[%uv p=@uv] :: hash
== ::
+$ cash :: case or tako
$% [%tako p=tako] ::

View File

@ -1451,6 +1451,7 @@
?- -.lok
%tas (~(get by lab.dom) p.lok)
%ud ?:((gth p.lok let.dom) ~ [~ p.lok])
%uv ?~(yak=(~(get by hut.ran) p.lok) ~ $(lok [%da t.u.yak]))
%da
?: (gth p.lok lim) ~
|- ^- (unit aeon)