contact-store: add timestamp to %edit

This commit is contained in:
Logan Allen 2021-02-11 18:42:46 -06:00
parent e2ad6e3e92
commit f0a86b2de3
3 changed files with 6 additions and 2 deletions

View File

@ -132,10 +132,12 @@
state(rolodex (~(del by rolodex) ship))
::
++ handle-edit
|= [=ship =edit-field:store]
|= [=ship =edit-field:store timestamp=date]
|^
^- (quip card _state)
=/ old (~(got by rolodex) ship)
?: (lth timestamp last-updated.old)
[~ state]
=/ contact (edit-contact old edit-field)
?: =(old contact)
[~ state]

View File

@ -42,6 +42,7 @@
%- pairs
:~ [%ship (ship ship.upd)]
[%edit-field (edit edit-field.upd)]
[%timestamp (time timestamp.upd)]
==
::
%allow
@ -140,6 +141,7 @@
%- ot
:~ [%ship (su ;~(pfix sig fed:ag))]
[%edit-field edit]
[%timestamp di]
==
::
++ beings

View File

@ -32,7 +32,7 @@
$% [%initial =rolodex is-public=?]
[%add =ship =contact]
[%remove =ship]
[%edit =ship =edit-field]
[%edit =ship =edit-field timestamp=@da]
[%allow =beings]
[%disallow =beings]
[%set-public public=?]