+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))
+ else
+ ())
+