policy-client-query: dgit: Mention tainted object type

And change the data structure to support this.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 7 insertions, 5 deletions

diff --git a/dgit b/dgit
index f7bfc0f..dedf0e9 100755
--- a/dgit
+++ b/dgit
@@ -4577,7 +4577,8 @@ END
 	foreach my $override (@{ $row->{overrides} }) {
 	    next ROW if grep { $_ eq $override } @deliberatelies;
 	}
-	push @{ $taints{$objid} }, $row;
+	$taints{$objid}{Type} = $gtype;
+	push @{ $taints{$objid}{Rows} }, $row;
     }
 
     open GRL, "-|",
@@ -4587,10 +4588,11 @@ END
     my $trouble = 0;
     my $found = sub {
 	my ($objid) = @_;
-	my $taints = $taints{$objid};
-	return unless $taints && @$taints;
-	print STDERR f_ "would want to push tainted object %s\n", $objid;
-	foreach my $row (@$taints) {
+	my $t = $taints{$objid};
+	return unless $t;
+	print STDERR f_ "would want to push tainted %s object %s\n",
+	    $t->{Type}, $objid;
+	foreach my $row (@{ $t->{Rows} }) {
 	    if (grep m{^--deliberately-}, @{ $row->{overrides} }) {
 		print STDERR f_ " overrideable (--deliberately): %s\n", $row->{comment};
 	    } else {