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

Merge pull request #405 from ohAitch/fix-talk-unreceived

Browse Source 
Honor previously-heard %received notifications
This commit is contained in:
Anton Dyudin 2017-06-19 16:22:23 -07:00 committed by GitHub
commit 4178af6bb7
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/talk.hoon
View File

@ -1930,8 +1930,19 @@
++ pa-revise :: revise existing ++ pa-revise :: revise existing
|= {num/@ud gam/telegram} |= {num/@ud gam/telegram}
=+ way=(sub count num) =+ way=(sub count num)
?: =(gam (snag (dec way) grams)) =/ ole (snag (dec way) grams)
+>.$ :: no change =. q.q.gam
::REVIEW let old %received override different "new" states, in an
:: attempt to stem a stale-update loop
::
%- ~(urn by q.q.gam)
|= {a/partner b/{envelope dev/delivery}} ^- {envelope delivery}
?: ?=({$~ ^ $received} (~(get by q.q.ole) a))
b(dev %received)
b
::
?: =(gam ole)
+>.$ :: no change
=. grams (welp (scag (dec way) grams) [gam (slag way grams)]) =. grams (welp (scag (dec way) grams) [gam (slag way grams)])
(pa-refresh num gam) (pa-refresh num gam)
-- --