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

2
scripts/nix-push.in
View File

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