ames: address feedback in |close-flows

This commit is contained in:
yosoyubik 2022-12-06 07:22:14 +01:00
parent 2c791daf09
commit 2ebab4938b

View File

@ -25,7 +25,7 @@
== ==
:: ::
=; krocs=(list [=ship =bone]) =; krocs=(list [=ship =bone])
helm-ames-kroc+[krocs dry-run] helm-ames-kroc+[krocs dry-run]
:: ::
%- zing %- zing
%+ turn peers %+ turn peers
@ -38,12 +38,12 @@
%- ~(gas in *(set @)) %- ~(gas in *(set @))
%+ turn %+ turn
%+ sort ~(tap by by-bone.ossuary.peer-state) %+ sort ~(tap by by-bone.ossuary.peer-state)
|= [[a=@ *] [b=@ *]] (lth a b) |= [[a=@ *] [b=@ *]] (lte a b)
head head
:: ::
=/ nacks=(list bone) =/ nacks=(list bone)
%+ turn %+ turn
(sort ~(tap by rcv.peer-state) |=([[a=@ *] [b=@ *]] (lth a b))) (sort ~(tap by rcv.peer-state) |=([[a=@ *] [b=@ *]] (lte a b)))
head head
:: ::
^- (list [@p @ud]) ^- (list [@p @ud])