mirror of
https://github.com/urbit/shrub.git
synced 2025-01-07 13:37:36 +03:00
Return an error when trying to add rules that contain undefined permission groups.
This commit is contained in:
parent
8c532942b4
commit
ab0dc23065
@ -806,6 +806,23 @@
|
|||||||
++ perm
|
++ perm
|
||||||
|= {pax/path rit/rite}
|
|= {pax/path rit/rite}
|
||||||
^+ +>
|
^+ +>
|
||||||
|
=/ mis/(set @ta)
|
||||||
|
%+ roll
|
||||||
|
=- ~(tap in -)
|
||||||
|
?- -.rit
|
||||||
|
$r who:(fall red.rit *rule)
|
||||||
|
$w who:(fall wit.rit *rule)
|
||||||
|
$rw (~(uni in who:(fall red.rit *rule)) who:(fall wit.rit *rule))
|
||||||
|
==
|
||||||
|
|= {w/whom s/(set @ta)}
|
||||||
|
?: |(?=($& -.w) (~(has by cez) p.w)) s
|
||||||
|
(~(put in s) p.w)
|
||||||
|
?^ mis
|
||||||
|
=- (emit hen %give %mack `[%leaf "No such group(s): {-}"]~)
|
||||||
|
%+ roll ~(tap in `(set @ta)`mis)
|
||||||
|
|= {g/@ta t/tape}
|
||||||
|
?~ t (trip g)
|
||||||
|
:(weld t ", " (trip g))
|
||||||
=< (emit hen %give %mack ~)
|
=< (emit hen %give %mack ~)
|
||||||
?- -.rit
|
?- -.rit
|
||||||
$r wake(per (put-perm per pax red.rit))
|
$r wake(per (put-perm per pax red.rit))
|
||||||
|
Loading…
Reference in New Issue
Block a user