else
x :: ls) [] ls
-fun copyDirCreate {from, to} =
- (mkDirAll to;
- if Posix.FileSys.access (from, []) then
- ignore (OS.Process.system ("cp -r " ^ from ^ " " ^ to))
- else
- ())
-
fun moveDirCreate {from, to} =
(mkDirAll to;
if Posix.FileSys.access (from, []) then
- ignore (OS.Process.system ("mv " ^ from ^ " " ^ to))
+ (ignore (OS.Process.system ("rm -rf " ^ to));
+ ignore (OS.Process.system ("cp -r " ^ from ^ " " ^ to));
+ ignore (OS.Process.system ("rm -rf " ^ from)))
else
())