ma27/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

When propagating failure, propagate the duration and machine

Browse source 
Previously the duration would just show as "0" and you would have to
search for the original build to get the duration.
This commit is contained in:
Eelco Dolstra 2015-02-25 16:21:54 +01:00
parent 2f946bdfd7
commit 48af914e28
1 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/script/hydra-build
View file

@ -39,7 +39,7 @@ sub nextFreeStepNr {
sub failDependents {
my ($drvPath, $status, $errorMsg, $dependents) = @_;
my ($drvPath, $status, $errorMsg, $dependents, $startTime, $stopTime, $machine) = @_;
# Get the referrer closure of $drvPath.
my $dependentDrvs = Set::Scalar->new(computeFSClosure(1, 0, $drvPath));
@ -71,9 +71,10 @@ sub failDependents {
, drvpath => $drvPath
, busy => 0
, status => $status
, starttime => $time
, stoptime => $time
, starttime => $startTime
, stoptime => $stopTime
, errormsg => $errorMsg
, machine => $machine
});
addBuildStepOutputs($step);
@ -204,10 +205,17 @@ sub doBuild {
} else {
$errorMsg = $4;
}
my $now = time;
my $stepStartTime = $now;
my $stepStopTime = $now;
my $machine = undef;
txn_do($db, sub {
if ($buildSteps{$drvPathStep}) {
my $step = $build->buildsteps->find({stepnr => $buildSteps{$drvPathStep}}) or die;
$step->update({busy => 0, status => $status, errormsg => $errorMsg, stoptime => time});
$stepStartTime = $step->starttime;
$stepStopTime = $now;
$machine = $step->machine;
$step->update({busy => 0, status => $status, errormsg => $errorMsg, stoptime => $now});
}
# Don't write a record if this derivation already
# failed previously. This can happen if this is a
@ -219,8 +227,8 @@ sub doBuild {
, drvpath => $drvPathStep
, busy => 0
, status => $status
, starttime => time
, stoptime => time
, starttime => $now
, stoptime => $now
, errormsg => $errorMsg
});
addBuildStepOutputs($step);
@ -228,7 +236,7 @@ sub doBuild {
});
# Immediately fail all builds that depend on this derivation.
failDependents($drvPathStep, $status, $errorMsg, $dependents);
failDependents($drvPathStep, $status, $errorMsg, $dependents, $stepStartTime, $stepStopTime, $machine);
}
elsif (/^@\s+substituter-started\s+(\S+)\s+(\S+)$/) {