contact-store: enforce timestamp ordering on %initial
|= [rolo=rolodex:store is-public=?]
^- (quip card _state)
=/ our-contact (~(got by rolodex) our.bowl)
- =. rolodex (~(uni by rolodex) rolo)
+ ::
+ =/ diff-rolo=rolodex:store
+ %- ~(gas by *rolodex:store)
+ %+ skim ~(tap in rolo)
+ |= [=ship =contact:store]
+ ?~ local-con=(~(get by rolodex) ship) %.y
+ (gth last-updated.contact last-updated.u.local-con)
+ =. rolodex (~(uni by rolodex) diff-rolo)
=. rolodex (~(put by rolodex) our.bowl our-contact)
:_ state(rolodex rolodex)
(send-diff [%initial rolodex is-public] %.n)
