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