Whitespace

This commit is contained in:
Eelco Dolstra 2011-11-29 15:57:47 +01:00
parent ee67821d1f
commit 3685ffd464

View file

@ -39,6 +39,7 @@ sub getStorePathHash {
return $hash;
}
sub getReleaseName {
my ($outPath) = @_;
@ -52,6 +53,7 @@ sub getReleaseName {
return $releaseName;
}
sub parseJobName {
# Parse a job specification of the form `<project>:<jobset>:<job>
# [attrs]'. The project, jobset and attrs may be omitted. The
@ -463,7 +465,9 @@ sub fetchInputBazaar {
, storePath => $storePath
, sha256hash => $sha256
, revision => $revision
};}
};
}
sub fetchInputHg {
my ($db, $project, $jobset, $name, $type, $value) = @_;
@ -533,7 +537,6 @@ sub fetchInputHg {
, sha256hash => $sha256
, revision => $revision
};
}
@ -616,6 +619,7 @@ sub inputsToArgs {
return @res;
}
sub captureStdoutStderr {
(my $timeout, my @cmd) = @_;
my $res;
@ -639,6 +643,7 @@ sub captureStdoutStderr {
}
}
sub evalJobs {
my ($inputInfo, $nixExprInputName, $nixExprPath) = @_;
@ -679,6 +684,7 @@ sub evalJobs {
return ($jobs, $nixExprInput);
}
sub addBuildProducts {
my ($db, $build) = @_;
@ -742,6 +748,7 @@ sub addBuildProducts {
}
}
# Check whether to add the build described by $buildInfo.
sub checkBuild {
my ($db, $project, $jobset, $inputInfo, $nixExprInput, $buildInfo, $currentBuilds) = @_;