urbit/gen/hood/cp.hoon

16 lines
351 B
Plaintext

::
:::: /hoon/cp/hood/gen
::
/? 310
:- %say
|= {^ {input/path output/path $~} $~}
:- %kiln-info
?. =(-:(flop input) -:(flop output))
["Can't move to a different mark" *toro]
=+ dir=.^(arch %cy input)
?~ fil.dir
~& "No such file:"
[<input> *toro]
:- "copied"
(foal output -:(flop input) [%atom %t ~] .^(* %cx input)) :: XX type