diff --git a/pkg/arvo/app/chat-store.hoon b/pkg/arvo/app/chat-store.hoon index 827b3e9ef..3004a1c5f 100644 --- a/pkg/arvo/app/chat-store.hoon +++ b/pkg/arvo/app/chat-store.hoon @@ -64,7 +64,7 @@ =? cards ?=(^ kick-paths) :_ cards [%give %kick kick-paths ~] - $(old [%3 inbox.old]) + $(old [%3 inbox]) :: ?(%0 %1) $(old (old-to-2 inbox.old)) :: diff --git a/pkg/arvo/app/contact-hook.hoon b/pkg/arvo/app/contact-hook.hoon index a0679ceed..f3ea82e23 100644 --- a/pkg/arvo/app/contact-hook.hoon +++ b/pkg/arvo/app/contact-hook.hoon @@ -68,12 +68,13 @@ :: cards ^- (list card) - %+ welp + ;: welp :~ [%pass /group %agent [our.bol %group-store] %leave ~] [%pass /group %agent [our.bol %group-store] %watch /groups] - kick-old-subs == - cards + kick-old-subs + cards + == == %_ $ -.old %1 @@ -87,7 +88,8 @@ %+ turn ~(val by sup.bol) |=([=ship =path] path) - [%give %kick paths ~] + ?~ paths ~ + [%give %kick paths ~]~ -- :: ++ on-poke diff --git a/pkg/arvo/app/contact-store.hoon b/pkg/arvo/app/contact-store.hoon index 4da159ad4..aa74b962a 100644 --- a/pkg/arvo/app/contact-store.hoon +++ b/pkg/arvo/app/contact-store.hoon @@ -67,11 +67,12 @@ old [%2 new-rolodex] :: cards - :_ cards =/ paths %+ turn ~(val by sup.bol) |=([=ship =path] path) + ?~ paths cards + :_ cards [%give %kick paths ~] == diff --git a/pkg/arvo/app/publish.hoon b/pkg/arvo/app/publish.hoon index 81db4f20f..d4c5b470c 100644 --- a/pkg/arvo/app/publish.hoon +++ b/pkg/arvo/app/publish.hoon @@ -230,6 +230,15 @@ ?: =('~' i.writers.prev) t.writers.prev writers.prev + :: + subscribers + ?> ?=(^ subscribers.prev) + :- %ship + %+ scag 2 + ?: =('~' i.subscribers.prev) + t.subscribers.prev + subscribers.prev + == :: ++ convert-comment-2-3