mirror of
https://github.com/urbit/shrub.git
synced 2025-01-07 13:37:36 +03:00
18 lines
350 B
Plaintext
18 lines
350 B
Plaintext
::
|
|
:::: /hoon/mv/hood/gen
|
|
::
|
|
/? 310
|
|
:- %say
|
|
|= {^ {input/path output/path $~} $~}
|
|
?. =(-:(flop input) -:(flop output))
|
|
~& "Can't move to a different mark"
|
|
~
|
|
=+ dir=.^(arch %cy input)
|
|
?~ fil.dir
|
|
~& "No such file:"
|
|
~& <input>
|
|
~
|
|
:+ %kiln-info "moved"
|
|
%+ furl (fray input)
|
|
(foal output -:(flop input) [%noun .^(* %cx input)])
|