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

Catch error thrown by lstat if path does not exist

Browse source
This commit is contained in:
Bryan Bennett 2023-12-22 08:37:32 -05:00
parent 7ec4cfb172
commit e3688e207e
No known key found for this signature in database
GPG key ID: EE149E4215408DE9
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/flake_env.re
View file

@ -131,6 +131,7 @@ let get_watches = () => {
// TODO: Maybe make this more terse?
let rec rmrf = (path) => {
switch (Unix.lstat(path).st_kind) {
| exception Unix.Unix_error(_, _, _) => ()
| S_REG => Unix.unlink(path)
| S_LNK => Unix.unlink(path)
| S_DIR => {
@ -174,6 +175,7 @@ let freshen_cache = (layout_dir, hash, flake_specifier) => {
switch (exit_code) {
| Ok() => {
Out_channel.with_file(~f=f=> Out_channel.output_string(f, stdout_content), profile_rc);
// TODO: flake inputs!
switch (nix(["build", "--out-link", profile, tmp_profile])) {
| (Ok(), _) => {
Sys_unix.remove(tmp_profile);
@ -223,13 +225,13 @@ let main = () => {
}
};
| Error(e) => {
Printf.eprintf("%s", e);
Printf.eprintf("%s\n", e);
exit(1);
}
}
}
| Error(e) => {
Printf.eprintf("%s", e);
Printf.eprintf("%s\n", e);
exit(1);
}
};