jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Do not remove sub-directories in `Compiler_utils.clean_dir'

Browse source
This commit is contained in:
Nicolas Berthier 2018-03-02 14:27:15 +00:00
parent 95bb1a72ad
commit 8872bb3998
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
compiler/utilities/global/compiler_utils.ml
View file

@ -107,7 +107,10 @@ let build_path suf =
let clean_dir dir =
if Sys.file_exists dir && Sys.is_directory dir
then begin
let rm_file_in_dir fn = Sys.remove (Filename.concat dir fn) in
let rm_file_in_dir fn =
let f = Filename.concat dir fn in
if not (Sys.is_directory f) then Sys.remove f
in
Array.iter rm_file_in_dir (Sys.readdir dir);
end else Unix.mkdir dir 0o740;
dir