contact-store: updates sent to /all path as well

This commit is contained in:
Logan Allen 2021-01-26 16:18:01 -06:00
parent 516c3418ea
commit 090946e328

View File

@ -29,7 +29,10 @@
+* this . +* this .
def ~(. (default-agent this %|) bowl) def ~(. (default-agent this %|) bowl)
:: ::
++ on-init on-init:def ++ on-init
=. rolodex (~(put by rolodex) our.bowl *contact:store)
[~ this(state state)]
::
++ on-save !>(state) ++ on-save !>(state)
++ on-load ++ on-load
|= old-vase=vase |= old-vase=vase
@ -168,8 +171,8 @@
^- (list card) ^- (list card)
=/ paths=(list path) =/ paths=(list path)
?: our ?: our
[/updates /our ~] [/updates /our /all ~]
~[/updates] [/updates /all ~]
[%give %fact paths %contact-update !>(update)]~ [%give %fact paths %contact-update !>(update)]~
-- --
:: ::