tloncorp/landscape
1
1
Fork 0
mirror of https://github.com/tloncorp/landscape.git synced 2024-12-01 02:45:49 +03:00
Code Issues Packages Projects Releases Wiki Activity

Clear old outstanding pokes

Browse Source
This commit is contained in:
~midsum-salrux 2023-10-24 11:44:55 -04:00
parent 2e258af94e
commit 8546be7940
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
desk/app/reel.hoon
View File

@ -6,6 +6,7 @@
$% state-0 $% state-0
state-1 state-1
state-2 state-2
state-3
== ==
:: ::
:: vic: URL of bait service :: vic: URL of bait service
@ -32,11 +33,18 @@
our-metadata=(map cord metadata:reel) our-metadata=(map cord metadata:reel)
outstanding-pokes=(set (pair ship cord)) outstanding-pokes=(set (pair ship cord))
== ==
+$ state-3
$: %3
vic=@t
civ=ship
our-metadata=(map cord metadata:reel)
outstanding-pokes=(set (pair ship cord))
==
++ url-for-token ++ url-for-token
|= [vic=cord our=ship token=cord] |= [vic=cord our=ship token=cord]
(crip "{(trip vic)}{(trip (scot %p our))}/{(trip token)}") (crip "{(trip vic)}{(trip (scot %p our))}/{(trip token)}")
-- --
=| state-2 =| state-3
=* state - =* state -
:: ::
%- agent:dbug %- agent:dbug
@ -55,12 +63,14 @@
^- (quip card _this) ^- (quip card _this)
=/ old !<(versioned-state old-state) =/ old !<(versioned-state old-state)
?- -.old ?- -.old
%2 %3
`this(state old) `this(state old)
%2
`this(state [%3 vic.old civ.old our-metadata.old ~])
%1 %1
`this(state [%2 'https://tlon.network/lure/' ~loshut-lonreg ~ ~]) `this(state [%3 'https://tlon.network/lure/' ~loshut-lonreg ~ ~])
%0 %0
`this(state [%2 'https://tlon.network/lure/' ~loshut-lonreg ~ ~]) `this(state [%3 'https://tlon.network/lure/' ~loshut-lonreg ~ ~])
== ==
:: ::
++ on-poke ++ on-poke