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

ames: clean up unused logic in |close-flows

Browse Source
This commit is contained in:
yosoyubik 2022-12-08 15:01:09 +01:00
parent 7d4959db2e
commit 81f01c456b
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkg/arvo/gen/hood/close-flows.hoon
View File

@ -34,21 +34,10 @@
%ax /(scot %p p.bec)//(scot %da now)/peers/(scot %p ship)
==
=/ =peer-state:ames ?>(?=(%known -.ship-state) +.ship-state)
=/ forward-flows=(set @)
%- ~(gas in *(set @))
%+ turn
%+ sort ~(tap by by-bone.ossuary.peer-state)
|= [[a=@ *] [b=@ *]] (lte a b)
head
::
=/ nacks=(list bone)
%+ turn
(sort ~(tap by rcv.peer-state) |=([[a=@ *] [b=@ *]] (lte a b)))
head
::
^- (list [@p @ud])
%+ murn nacks
|= =bone
%+ murn ~(tap by rcv.peer-state)
|= [=bone *]
?. &(=(0 (end 0 bone)) =(1 (end 0 (rsh 0 bone))))
:: not a naxplanation ack bone
::
@ -59,7 +48,6 @@
=+ target=(mix 0b10 bone)
:: make sure that the nack bone has a forward flow
::
?. (~(has in forward-flows) target) ~
?~ duct=(~(get by by-bone.ossuary.peer-state) target)
~
=; =wire