ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Record which build a failed build step was propagated from

Browse Source
This commit is contained in:
Eelco Dolstra
2015-02-25 16:42:32 +01:00
parent 48af914e28
commit adc72d2409
6 changed files with 46 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/script/hydra-build
View File

@ -39,7 +39,7 @@ sub nextFreeStepNr {
sub failDependents {
my ($drvPath, $status, $errorMsg, $dependents, $startTime, $stopTime, $machine) = @_;
my ($drvPath, $status, $errorMsg, $dependents, $startTime, $stopTime, $machine, $propagatedFrom) = @_;
# Get the referrer closure of $drvPath.
my $dependentDrvs = Set::Scalar->new(computeFSClosure(1, 0, $drvPath));
@ -75,6 +75,7 @@ sub failDependents {
, stoptime => $stopTime
, errormsg => $errorMsg
, machine => $machine
, propagatedfrom => $propagatedFrom->id
});
addBuildStepOutputs($step);
@ -236,7 +237,7 @@ sub doBuild {
});
# Immediately fail all builds that depend on this derivation.
failDependents($drvPathStep, $status, $errorMsg, $dependents, $stepStartTime, $stepStopTime, $machine);
failDependents($drvPathStep, $status, $errorMsg, $dependents, $stepStartTime, $stepStopTime, $machine, $build);
}
elsif (/^@\s+substituter-started\s+(\S+)\s+(\S+)$/) {