From 038db3abeb923014318cd51c716ead6c784aeb82 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Wed, 8 May 2013 18:54:01 +0200
Subject: [PATCH] Pass failing dependent builds to buildFinished

---
 src/script/hydra-build | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/script/hydra-build b/src/script/hydra-build
index 14da2dd9..941f93c6 100755
--- a/src/script/hydra-build
+++ b/src/script/hydra-build
@@ -37,7 +37,7 @@ sub nextFreeStepNr {
 
 
 sub failDependents {
-    my ($drvPath, $errorMsg) = @_;
+    my ($drvPath, $errorMsg, $dependents) = @_;
 
     # Get the referrer closure of $drvPath.
     my @dependentDrvs = computeFSClosure(1, 0, $drvPath);
@@ -73,6 +73,8 @@ sub failDependents {
                 , errormsg => $errorMsg
                 });
             addBuildStepOutputs($step);
+
+            push @$dependents, $d;
         }
 
     });
@@ -83,7 +85,7 @@ sub notify {
     my ($build, $dependents) = @_;
     foreach my $plugin (@plugins) {
         eval {
-            $plugin->buildFinished($build, []);
+            $plugin->buildFinished($build, $dependents);
         };
         if ($@) {
             print STDERR "$plugin->buildFinished: $@\n";
@@ -111,6 +113,8 @@ sub doBuild {
 
     my $errormsg = undef;
 
+    my $dependents = [];
+
     unless (all { isValidPath($_) } values(%outputs)) {
         $isCachedBuild = 0;
 
@@ -204,7 +208,7 @@ sub doBuild {
                 });
 
                 # Immediately fail all builds that depend on this derivation.
-                failDependents($drvPathStep, $errorMsg);
+                failDependents($drvPathStep, $errorMsg, $dependents);
             }
 
             elsif (/^@\s+substituter-started\s+(\S+)\s+(\S+)$/) {
@@ -303,7 +307,7 @@ sub doBuild {
 
     });
 
-    notify($build, []);
+    notify($build, $dependents);
 }