TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Missing semicolons.

This commit is contained in:
Eelco Dolstra 2003-12-21 21:56:54 +00:00
parent 528f1d1867
commit 397c8ba898
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/nix-pull.in
View File

@ -52,10 +52,10 @@ foreach my $storepath (keys %storepaths2urls) {
my $hash = $urls2hashes{$url};
my $fetch =
"(import @datadir@/nix/corepkgs/fetchurl) " .
"{url = $url; md5 = \"$hash\"; system = \"@system@\"}";
"{url = $url; md5 = \"$hash\"; system = \"@system@\";}";
my $nixexpr =
"((import @datadir@/nix/corepkgs/nar/unnar.nix) " .
"{narFile = ($fetch); outPath = \"$storepath\"; system = \"@system@\"}) ";
"{narFile = ($fetch); outPath = \"$storepath\"; system = \"@system@\";}) ";
$fullexpr .= $nixexpr; # !!! O(n^2)?
push @storepaths, $storepath;
}
@ -104,6 +104,6 @@ while (scalar @sucs > 0) {
if ($n > 256) { $n = 256 };
my @sucs2 = @sucs[0..$n - 1];
@sucs = @sucs[$n..scalar @sucs - 1];
system "nix-store --successor @sucs";
system "nix-store --successor @sucs2";
if ($?) { die "`nix-store --successor' failed"; }
}

2
scripts/nix-push.in
View File

@ -45,7 +45,7 @@ foreach my $path (@paths) {
my $nixexpr =
"((import @datadir@/nix/corepkgs/nar/nar.nix) " .
# !!! $path should be represented as a closure
"{path = \"$path\"; system = \"@system@\"}) ";
"{path = \"$path\"; system = \"@system@\";}) ";
print NIX $nixexpr;
}