contact-store: compiles
state(rolodex (~(del by rolodex) ship))
::
++ handle-edit
- |= [=ship =edit-field:store timestamp=date]
+ |= [=ship =edit-field:store timestamp=@da]
|^
^- (quip card _state)
=/ old (~(got by rolodex) ship)
?: =(old contact)
[~ state]
=. last-updated.contact timestamp
- :- (send-diff [%edit ship edit-field] =(ship our.bowl))
+ :- (send-diff [%edit ship edit-field timestamp] =(ship our.bowl))
state(rolodex (~(put by rolodex) ship contact))
::
++ edit-contact
