janik/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Write Hydra roots as regular files instead of symlinks

Browse source 
Note that this requires at least NixOS/Nix@1c208f2b7e.
This commit is contained in:
Eelco Dolstra 2014-08-01 17:24:55 +02:00
parent 7351752066
commit 69e3aa0438
3 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/lib/Hydra/Helper/Nix.pm
View file

@ -78,13 +78,9 @@ sub gcRootFor {
sub registerRoot { sub registerRoot {
my ($path) = @_; my ($path) = @_;
my $link = gcRootFor $path; my $link = gcRootFor $path;
open ROOT, ">$link" or die "cannot create GC root `$link' to `$path'";
if (!-l $link) { close ROOT;
symlink($path, $link)
or die "cannot create GC root `$link' to `$path'";
}
} }

2
src/script/hydra-s3-backup-collect-garbage
View file

@ -32,7 +32,7 @@ closedir DIR;
my @actual_roots = (); my @actual_roots = ();
foreach my $link (@roots) { foreach my $link (@roots) {
next if $link eq "." || $link eq ".."; next if $link eq "." || $link eq "..";
push @actual_roots, readlink "$gcRootsDir/$link"; push @actual_roots, $Nix::Config::storeDir . "/" . $link;
} }
# Don't delete a nix-cache-info file, if present # Don't delete a nix-cache-info file, if present