ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use unit to disambiguate poll timer state

Browse Source
This commit is contained in:
Fang 2019-02-25 20:26:59 +01:00
parent 717d148ac7
commit a1d990735d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/eth-watcher.hoon
View File

@ -14,7 +14,7 @@
$: config
latest-block=@ud
filter-id=@ud
poll-timer=@da
poll-timer=(unit @da)
snapshot
sap=history
==
@ -330,15 +330,15 @@
::
++ wait-poll
=+ wen=(add now ~m4)
%- put-move(poll-timer.eye wen)
%- put-move(poll-timer.eye `wen)
[%wait name^/poll wen]
::
:: +cancel-wait-poll: remove poll reminder
::
++ cancel-wait-poll
?: =(*@da poll-timer.eye) ..cancel-wait-poll
%- put-move(poll-timer.eye *@da)
[%rest poll-timer.eye]
?~ poll-timer.eye ..cancel-wait-poll
%- put-move(poll-timer.eye ~)
[%rest u.poll-timer.eye]
::
:: +| filter-results
::
@ -420,7 +420,7 @@
::
new-filter
:: kick polling timer, only if it hasn't already been.
=? +> (gth now poll-timer.eye)
=? +> |(?=(~ poll-timer.eye) (gth now u.poll-timer.eye))
wait-poll
(take-events rep)
::