shrub/gen/hood/mv.hoon

18 lines
350 B
Plaintext
Raw Normal View History

2016-02-05 05:57:44 +03:00
::
2016-02-05 06:05:37 +03:00
:::: /hoon/mv/hood/gen
2016-02-05 05:57:44 +03:00
::
/? 310
2015-09-12 03:24:51 +03:00
:- %say
2016-05-07 02:21:29 +03:00
|= {^ {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)])