urbit/pkg/arvo/ted/read.hoon
2020-05-22 14:32:32 -07:00

19 lines
443 B
Plaintext

/- spider
/+ strandio
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
:: Parse arguments as ship, desk, and path
::
=+ !<([=care:clay =ship =desk =case =target=path ~] arg)
:: Read the file, possibly asyncrhonously
::
;< =bowl:spider bind:m get-bowl:strandio
;< =riot:clay bind:m
(warp:strandio ship desk ~ %sing care case target-path)
?~ riot
(pure:m !>("nothing"))
(pure:m q.r.u.riot)