chat: address migration of missing owner in unmanaged groups

This commit is contained in:
Liam Fitzgerald 2020-12-10 13:52:25 +10:00
parent 1aace5cc07
commit c29b3d8167
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
2 changed files with 4 additions and 2 deletions

View File

@ -397,8 +397,8 @@
=/ group=(unit group)
(scry-group:grp group-rid)
:- (add-graph app-rid mailbox)
?~ group ~
?. &((lte ~(wyt in members.u.group) 1) hidden.u.group) ~
?~ group (archive-graph app-rid)^~
?. &(=(~ members.u.group) hidden.u.group) ~
~& >>> "archiving {<app-rid>}"
:~ (archive-graph app-rid)
(remove-group group-rid)

View File

@ -19,6 +19,8 @@
=/ =action:group-store
[%add-group rid policy.associated %&]
;< ~ bind:m (poke-our %group-store %group-action !>(action))
;< =bowl:spider bind:m get-bowl:strandio
;< ~ bind:m (poke-our %group-store %group-action !>([%add-members rid (sy our.bowl ~)]))
;< ~ bind:m
(poke-our %group-push-hook %push-hook-action !>([%add rid]))
(pure:m rid)