hark-store: fix mark channel as read issue
Addresses root cause of
(give %archive time index)
::
:: if we detect cache inconsistencies, wipe and rebuild
- :: TODO: where are these coming from?
++ change-read-status
|= [time=@da =index:store read=?]
^+ poke-core
poke-core
?. (stats-index-is-index:store stats-index i.keys)
$(keys t.keys)
+ =/ =notification:store
+ (~(got by (gut-orm notifications time)) i.keys)
+ ?: read.notification
+ $(keys t.keys)
=/ core
(read-note time i.keys)
$(poke-core core, keys t.keys)
