graph-pull-hook: only archive graph if we already have it
+* this .
def ~(. (default-agent this %|) bowl)
dep ~(. (default:pull-hook this config) bowl)
+ gra ~(. graph bowl)
::
++ on-init on-init:def
++ on-save !>(~)
|= [=resource =tang]
^- (quip card _this)
:_ this
+ ?. (~(has in get-keys:gra) resource) ~
=- [%pass /pull-nack %agent [our.bowl %graph-store] %poke %graph-update -]~
!> ^- update:store
[%0 now.bowl [%archive-graph resource]]
++ on-pull-kick
|= =resource
^- (unit path)
- =/ maybe-time (peek-update-log:graph resource)
+ =/ maybe-time (peek-update-log:gra resource)
?~ maybe-time `/
`/(scot %da u.maybe-time)
--
