ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-22 14:21:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

naive: l2 csv add @da to saved file

Browse Source
This commit is contained in:
drbeefsupreme 2022-03-25 11:28:45 -04:00
parent 9cb1cde9b4
commit 4a403a676d
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/arvo/ted/naive-csv.hoon
View File

@ -123,7 +123,7 @@
(make-csv (flatten (collate-roll-data rolls-map timestamps roll-receipts))) (make-csv (flatten (collate-roll-data rolls-map timestamps roll-receipts)))
;< ~ bind:m (export-csv csv pax) ;< ~ bind:m (export-csv csv pax)
:: ::
(pure:m !>((crip :(weld "data saved to %" (spud pax) "/txt")))) (pure:m !>((crip :(weld "data saved to %" (spud pax) "/"))))
:: ::
:: +collate-roll-data throws naive:effects, timestamps, and gas costs into :: +collate-roll-data throws naive:effects, timestamps, and gas costs into
:: one $block-map :: one $block-map
@ -246,7 +246,6 @@
|= [node-url=@t tx-hashes=(list keccak)] |= [node-url=@t tx-hashes=(list keccak)]
%- %- slog :_ ~ %- %- slog :_ ~
leaf+"getting l2 roll receipts from ethereum node" leaf+"getting l2 roll receipts from ethereum node"
::=/ tx-hashes=(list keccak) (get-roll-hashes rolls-map)
=/ m (strand ,(map keccak [gas=@ud sender=address])) =/ m (strand ,(map keccak [gas=@ud sender=address]))
^- form:m ^- form:m
=| out=(map keccak [gas=@ud sender=address]) =| out=(map keccak [gas=@ud sender=address])
@ -394,7 +393,11 @@
;< =bowl:spider bind:m get-bowl ;< =bowl:spider bind:m get-bowl
=- (send-raw-card %pass / %arvo %c %info -) =- (send-raw-card %pass / %arvo %c %info -)
%+ foal:space:userlib %+ foal:space:userlib
:(weld /(scot %p our.bowl)/base/(scot %da now.bowl) pax /txt) ;: weld
/(scot %p our.bowl)/base/(scot %da now.bowl)
pax
/(scot %da now.bowl)/txt
==
[%txt !>(in)] [%txt !>(in)]
:: ::
:: +make-csv takes in a (list tx-data) and makes it into a (list cord) to be :: +make-csv takes in a (list tx-data) and makes it into a (list cord) to be