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

all messages are fanned

Browse Source
This commit is contained in:
Philip Monk 2018-11-14 10:53:53 -08:00
parent 1063a6805c
commit 878af106c1
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
app/send-txs.hoon
View File

@ -123,20 +123,16 @@
(json-request:ethereum url jon)
::
++ batch-requests
|= [wir=wire fan=? req=(list [(unit @t) request:ethe])]
|= [wir=wire req=(list [(unit @t) request:ethe])]
^- (list move)
%^ fan-requests
wir
?: fan
:~ => (need (de-purl:html 'http://localhost:8545'))
geth+.(p.p |)
::
=> (need (de-purl:html 'http://localhost:8555'))
parity+.(p.p |)
==
:_ ~
=> (need (de-purl:html 'http://localhost:8545'))
geth+.(p.p |)
:~ => (need (de-purl:html 'http://localhost:8545'))
geth+.(p.p |)
::
=> (need (de-purl:html 'http://localhost:8555'))
parity+.(p.p |)
==
a+(turn req request-to-json:ethereum)
::
++ send-next-batch
@ -152,7 +148,7 @@
:_ this(txs (slag new-count txs))
~& ['remaining txs: ' (lent txs)]
~& ['sending txs...' new-count]
%^ batch-requests /send &
%+ batch-requests /send
%+ turn (scag new-count txs)
|= tx=@ux
:- `(crip 'id-' (scot %ux (end 3 10 tx)) ~)
@ -211,7 +207,7 @@
?: =(~ see)
apex
:_ this
%^ batch-requests /see &
%+ batch-requests /see
%+ turn ~(tap in see)
|= txh=@ux
:- `(crip 'see-0x' ((x-co:co 64) txh))