contact-store: address L review

This commit is contained in:
Liam Fitzgerald 2021-02-13 15:14:36 +10:00
parent dbafffd783
commit 9e3c048855
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -104,17 +104,18 @@
|= [rolo=rolodex:store is-public=?] |= [rolo=rolodex:store is-public=?]
^- (quip card _state) ^- (quip card _state)
=/ our-contact (~(got by rolodex) our.bowl) =/ our-contact (~(got by rolodex) our.bowl)
::
=/ diff-rolo=rolodex:store =/ diff-rolo=rolodex:store
%- ~(gas by *rolodex:store) %- ~(gas by *rolodex:store)
%+ skim ~(tap in rolo) %+ skim ~(tap in rolo)
|= [=ship =contact:store] |= [=ship =contact:store]
?~ local-con=(~(get by rolodex) ship) %.y ?~ local-con=(~(get by rolodex) ship) %.y
(gth last-updated.contact last-updated.u.local-con) (gth last-updated.contact last-updated.u.local-con)
=. rolodex (~(uni by rolodex) diff-rolo) =/ new-rolo=rolodex:store
=. rolodex (~(put by rolodex) our.bowl our-contact) (~(uni by rolodex) diff-rolo)
:_ state(rolodex rolodex) =. new-rolo (~(put by new-rolo) our.bowl our-contact)
(send-diff [%initial rolodex is-public] %.n) ?: =(new-rolo rolodex) `state
:_ state(rolodex new-rolo)
(send-diff [%initial new-rolo is-public] %.n)
:: ::
++ handle-add ++ handle-add
|= [=ship =contact:store] |= [=ship =contact:store]