group-store: Disallow joining of nonexisting groups

Returns %.n upon requesting a join of group that does not exist
This commit is contained in:
Liam Fitzgerald 2020-08-17 12:51:45 +10:00
parent f658d99c76
commit 5a1a994b9f

View File

@ -227,8 +227,11 @@
++ peek-group-join ++ peek-group-join
|= [rid=resource =ship] |= [rid=resource =ship]
=/ =group =/ ugroup
(~(gut by groups) rid *group) (~(get by groups) rid)
?~ ugroup
%.n
=* group u.ugroup
=* policy policy.group =* policy policy.group
?- -.policy ?- -.policy
%invite %invite