fix incremental fetching for stations already seen

This commit is contained in:
Anton Dyudin 2016-07-15 11:24:41 -07:00
parent 44340968b1
commit f55ceadd90

View File

@ -1655,8 +1655,9 @@
%+ turn tal %+ turn tal
|= tay/partner |= tay/partner
^- (list card) ^- (list card)
:: =+ num=(fall (~(get by sequence) tay) 0) :: XX unused =+ num=(~(get by sequence) tay)
=+ old=(sub now.hid ~d1) =+ old=(sub now.hid ~d1) :: XX full backlog
=+ ini=?^(num (scot %ud u.num) (scot %da old))
=/ typ =/ typ
=+ (ly ~[%a-group %f-grams %x-cabal]) =+ (ly ~[%a-group %f-grams %x-cabal])
(rap 3 (turn - encode:peer-type)) (rap 3 (turn - encode:peer-type))
@ -1667,7 +1668,7 @@
:* %peer :* %peer
/friend/show/[man]/(scot %p p.p.tay)/[q.p.tay] /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
[p.p.tay %talk] [p.p.tay %talk]
/[typ]/[q.p.tay]/(scot %da old) /[typ]/[q.p.tay]/[ini]
== ==
== ==
:: ::