mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-01 02:45:49 +03:00
Clear old outstanding pokes
This commit is contained in:
parent
2e258af94e
commit
8546be7940
@ -6,6 +6,7 @@
|
||||
$% state-0
|
||||
state-1
|
||||
state-2
|
||||
state-3
|
||||
==
|
||||
::
|
||||
:: vic: URL of bait service
|
||||
@ -32,11 +33,18 @@
|
||||
our-metadata=(map cord metadata:reel)
|
||||
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
|
||||
|= [vic=cord our=ship token=cord]
|
||||
(crip "{(trip vic)}{(trip (scot %p our))}/{(trip token)}")
|
||||
--
|
||||
=| state-2
|
||||
=| state-3
|
||||
=* state -
|
||||
::
|
||||
%- agent:dbug
|
||||
@ -55,12 +63,14 @@
|
||||
^- (quip card _this)
|
||||
=/ old !<(versioned-state old-state)
|
||||
?- -.old
|
||||
%2
|
||||
%3
|
||||
`this(state old)
|
||||
%2
|
||||
`this(state [%3 vic.old civ.old our-metadata.old ~])
|
||||
%1
|
||||
`this(state [%2 'https://tlon.network/lure/' ~loshut-lonreg ~ ~])
|
||||
`this(state [%3 'https://tlon.network/lure/' ~loshut-lonreg ~ ~])
|
||||
%0
|
||||
`this(state [%2 'https://tlon.network/lure/' ~loshut-lonreg ~ ~])
|
||||
`this(state [%3 'https://tlon.network/lure/' ~loshut-lonreg ~ ~])
|
||||
==
|
||||
::
|
||||
++ on-poke
|
||||
|
Loading…
Reference in New Issue
Block a user