graph-store: use +bap for update-log listification

This commit is contained in:
Liam Fitzgerald 2021-01-05 08:23:12 +10:00
parent 3e1207283b
commit 44ac3130f8
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -593,8 +593,9 @@
?< (~(has by archive) resource)
?> (~(has by graphs) resource)
=/ updates=(list [=time upd=logged-update:store])
:: TODO: add +bap:orm (backwards tap) and use that
(flop (tap:orm-log update-log))
:: updates are time-ordered with most recent first
:: process with earliest first
(bap:orm-log update-log)
=| cards=(list card)
|- ^- (quip card _state)
?~ updates