naive: use get-network for retrieving chain data

This commit is contained in:
yosoyubik 2021-06-01 14:28:17 +02:00
parent 5453722728
commit 4642ece88f

View File

@ -71,14 +71,7 @@
++ run-logs ++ run-logs
|= [nas=^state:naive logs=(list event-log:rpc:ethereum) =network] |= [nas=^state:naive logs=(list event-log:rpc:ethereum) =network]
^- [(list tagged-diff) ^state:naive] ^- [(list tagged-diff) ^state:naive]
=/ [contract=@ux chain-id=@] =/ [contract=@ux * chain-id=@ *] (get-network network)
=< [azimuth chain-id]
=, azimuth
?- network
%mainnet mainnet-contracts
%ropsten ropsten-contracts
%local local-contracts
==
?~ logs ?~ logs
`nas `nas
?~ mined.i.logs ?~ mined.i.logs
@ -147,10 +140,10 @@
^- card:agent:gall ^- card:agent:gall
[%give %fact ~[/aggregator] %naive-diffs !>(+.tag)] [%give %fact ~[/aggregator] %naive-diffs !>(+.tag)]
:: ::
++ get-contract ++ get-network
|= =network |= =network
^- [contract=@ux chain-id=@] ^- [@ux @ux @ @]
=< [azimuth chain-id] =< [azimuth naive chain-id launch]
=, azimuth =, azimuth
?- network ?- network
%mainnet mainnet-contracts %mainnet mainnet-contracts
@ -161,14 +154,7 @@
++ start ++ start
|= [state=app-state =network our=ship dap=term] |= [state=app-state =network our=ship dap=term]
^- card:agent:gall ^- card:agent:gall
=/ [azimuth=@ux naive=@ux launch=@ud] =/ [azimuth=@ux naive=@ux * launch=@ud] (get-network network)
=< [azimuth naive launch]
=, azimuth
?- network
%mainnet mainnet-contracts
%ropsten ropsten-contracts
%local local-contracts
==
=/ args=vase !> =/ args=vase !>
:+ %watch /[dap] :+ %watch /[dap]
^- config:eth-watcher ^- config:eth-watcher