ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 04:04:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

hark-store: wipe archive to remove dupes

Browse Source
This commit is contained in:
Liam Fitzgerald 2021-10-21 13:51:55 -05:00
parent 678cf651ad
commit f91f0dd2b6
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/garden/app/hark-store.hoon
View File

@ -25,6 +25,7 @@
state-6 state-6
state-7 state-7
state-8 state-8
state-9
== ==
:: ::
+$ base-state +$ base-state
@ -56,13 +57,16 @@
+$ state-8 +$ state-8
[%8 base-state] [%8 base-state]
:: ::
+$ state-9
[%9 base-state]
::
:: ::
+$ cached-state +$ cached-state
$: by-place=(jug place:store [=lid:store =path]) $: by-place=(jug place:store [=lid:store =path])
~ ~
== ==
+$ inflated-state +$ inflated-state
[state-8 cached-state] [state-9 cached-state]
:: ::
++ orm ((ordered-map @da timebox:store) gth) ++ orm ((ordered-map @da timebox:store) gth)
-- --
@ -91,14 +95,20 @@
=/ old =/ old
!<(versioned-state old-vase) !<(versioned-state old-vase)
=| cards=(list card) =| cards=(list card)
^- (quip card _this) |- ^- (quip card _this)
?: ?=(%8 -.old) ?+ -.old
:: pre-dist migration
:_ this
(poke-our:pass %hark-graph-hook hark-graph-migrate+old-vase)^~
::
%9
=. -.state old =. -.state old
=. +.state inflate:ha =. +.state inflate:ha
:_(this (flop cards)) :_(this (flop cards))
:: ::
:_ this %8
(poke-our:pass %hark-graph-hook hark-graph-migrate+old-vase)^~ $(-.old %9, archive.old *archive:store)
==
:: ::
++ on-watch ++ on-watch
|= =path |= =path