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