backups/flake_env
1
0
Fork 0
mirror of https://git.sr.ht/~bryan_bennett/flake_env synced 2025-12-16 14:41:24 +01:00
Code Issues Projects Releases Packages Wiki Activity

Fix rmrf to properly handle symlinks

Browse source
This commit is contained in:
Bryan Bennett 2023-12-21 14:03:31 -05:00
parent bddef99967
commit b7413a17f1
No known key found for this signature in database
GPG key ID: EE149E4215408DE9
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/flake_env.re
View file

@ -128,20 +128,19 @@ let get_watches = () => {
}
};
let rec rmrf = (path) => switch (Sys_unix.is_directory(~follow_symlinks=false, path)) {
| `Yes => {
Sys_unix.readdir(path) |> Array.iter(~f=name => { print_endline(Filename.concat(path, name)); rmrf(Filename.concat(path, name))});
// TODO: Maybe make this more terse?
let rec rmrf = (path) => {
switch (Unix.lstat(path).st_kind) {
| S_REG => Unix.unlink(path)
| S_LNK => Unix.unlink(path)
| S_DIR => {
Sys_unix.readdir(path) |> Array.iter(~f=name => rmrf(Filename.concat(path, name)));
Unix.rmdir(path)
}
| `No => {
switch (Sys_unix.is_file(~follow_symlinks=false, path)) {
| `Yes => Sys_unix.remove(path)
| _ => ()
}
}
| `Unknown => {
Printf.eprintf("Cannot determine what file type of path %s", path);
exit(1);
| S_CHR => Printf.eprintf("Don't know how to handle Character Device file\n")
| S_BLK => Printf.eprintf("Don't know how to handle Block Device file\n")
| S_FIFO => Printf.eprintf("Don't know how to handle FIFO file\n")
| S_SOCK => Printf.eprintf("Don't know how to handle Socket file\n")
}
};