lix-project/hydra
3
0
Fork 6
Code Issues 2 Pull requests 1 Packages Projects Releases Wiki Activity

GithubStatus: try pushing statuses for cached buildqueued/buildfinished events

Browse source
This commit is contained in:
Graham Christensen 2022-01-10 20:33:47 -05:00
parent 29f9e30b10
commit ef362e92d1
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/lib/Hydra/Plugin/GithubStatus.pm
View file

@ -26,7 +26,7 @@ sub toGithubState {
}
sub common {
my ($self, $topbuild, $dependents, $finished) = @_;
my ($self, $topbuild, $dependents, $finished, $cachedEval) = @_;
my $cfg = $self->{config}->{githubstatus};
my @config = defined $cfg ? ref $cfg eq "ARRAY" ? @$cfg : ($cfg) : ();
my $baseurl = $self->{config}->{'base_uri'} || "http://localhost:3000";
@ -58,6 +58,9 @@ sub common {
my @inputs = defined $inputs_cfg ? ref $inputs_cfg eq "ARRAY" ? @$inputs_cfg : ($inputs_cfg) : ();
my %seen = map { $_ => {} } @inputs;
while (my $eval = $evals->next) {
if (defined($cachedEval) && $cachedEval->id != $eval->id) {
next;
}
my $sendStatus = sub {
my ($input, $owner, $repo, $rev) = @_;
@ -129,4 +132,14 @@ sub buildFinished {
common(@_, 1);
}
sub cachedBuildQueued {
my ($self, $evaluation, $build) = @_;
common($self, $build, [], 0, $evaluation);
}
sub cachedBuildFinished {
my ($self, $evaluation, $build) = @_;
common($self, $build, [], 1, $evaluation);
}
1;