permissions: fixed bugs with hook and store

This commit is contained in:
Logan Allen 2019-11-26 17:41:52 -08:00
parent 3e0c33e4c9
commit a7fbed9350
2 changed files with 3 additions and 3 deletions

View File

@ -5,7 +5,7 @@
:: configured for them as `access-control`.
::
/- *permission-hook
/+ *permission-json, default-agent, verb
/+ *permission-json, default-agent
::
|%
+$ state
@ -26,7 +26,6 @@
=| state-0
=* state -
::
%+ verb |
^- agent:gall
=<
|_ =bowl:gall

View File

@ -51,7 +51,7 @@
[%all ~] (give %permission-initial !>(permissions))
[%updates ~] ~
[%permission @ *]
=/ =vase !>([%create path (~(got by permissions) path)])
=/ =vase !>([%create t.path (~(got by permissions) t.path)])
(give %permission-update vase)
==
[cards this]
@ -71,6 +71,7 @@
[%x %permission *]
?~ t.t.path ~
``noun+!>((~(get by permissions) t.t.path))
::
[%x %permitted @ *]
?~ t.t.t.path ~
=/ pem (~(get by permissions) t.t.t.path)