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

View File

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