eth-watcher: properly tag out-peer-data
+$ out-poke-data ~
+$ in-peer-data ~
+$ out-peer-data
+ $: %eth-watcher-diff
$% :: %history: full event log history
::
- [%history loglist]
+ [%history =loglist]
:: %log: newly added log
::
- [%log event-log:rpc:ethereum]
+ [%log =event-log:rpc:ethereum]
:: %disavow: forget logs
::
:: this is sent when a reorg happens that invalidates
:: previously-sent logs
::
- [%disavow id:block]
- ==
+ [%disavow =id:block]
+ == ==
++ tapp
%: ^tapp
app-state
loop(loglist t.loglist)
::
++ send-update
- |= [=path out=out-peer-data]
+ |= [=path out=_+:*out-peer-data]
=/ m (async:stdio ,~)
^- form:m
=. path [%logs path]
- (give-result:stdio path out)
+ (give-result:stdio path %eth-watcher-diff out)
--
::
:: Main loop
