azimuth: give backlog on %watch

This commit is contained in:
Philip Monk 2021-11-09 00:42:34 -08:00
parent 1db1819d4d
commit 42410a708d
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -146,7 +146,13 @@
~
(~(put in whos.state) u.who)
^- (quip card _this)
[start:do this]
:: Slow to recalculate all the diffs, but this is necessary to make
:: sure Jael gets the updates from the snapshot
::
%- %- slog :_ ~
leaf+"azimuth: loading snapshot with {<(lent logs.state)>} events"
=/ res (%*(run-logs do nas.state *^state:naive) logs.state)
[(weld (jael-update:do (to-udiffs:do -.res)) start:do) this]
::
++ on-leave on-leave:def
++ on-peek