contact-store: compiles

This commit is contained in:
Logan Allen 2021-02-11 18:52:26 -06:00
parent 1ddf9f5b84
commit 2d81eb5fdc

View File

@ -131,7 +131,7 @@
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)
@ -141,7 +141,7 @@
?: =(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