grahamc/hydra2 - Change 6XZA5RB6BSKGDOK7DM4BFIMVZ46NY6IETDORSRISGZAVR2ZEK4PAC

Fix Github status plugin for flakes

If the root flake is a github: one, github status notifications are sent to it. The githubstatus->inputs configuration isn't used for flakes.

Created by Silvan Mosberger on February 5, 2021

6XZA5RB6BSKGDOK7DM4BFIMVZ46NY6IETDORSRISGZAVR2ZEK4PAC

Dependencies

In channels

main

Change contents

Replacement in src/lib/Hydra/Plugin/GithubStatus.pm at line 60 [4.58]

B:BD[4.1651] → [4.1651:2022]

                foreach my $input (@inputs) {
                    my $i = $eval->jobsetevalinputs->find({ name => $input, altnr => 0 });
                    next unless defined $i;
                    my $uri = $i->uri;
                    my $rev = $i->revision;
                    my $key = $uri . "-" . $rev;
                    next if exists $seen{$input}->{$key};

[4.1651]

[4.2022]


                my $sendStatus = sub {
                    my ($input, $owner, $repo, $rev) = @_;
                    my $key = $owner . "-" . $repo . "-" . $rev;
                    return if exists $seen{$input}->{$key};

Replacement in src/lib/Hydra/Plugin/GithubStatus.pm at line 67 [4.58]

B:BD[4.2069] → [4.2069:2132]

B:BD[4.2132] → [5.0:71]

                    $uri =~ m![:/]([^/]+)/([^/]+?)(?:.git)?$!;
                    my $owner = $1;
                    my $repo = $2;

[4.2069]

[3.569]

Insertion in src/lib/Hydra/Plugin/GithubStatus.pm at line 90 [4.58]

[2.864]

                    }
                };
                if (defined $eval->flake) {
                    my $fl = $eval->flake;
                    print STDERR "Flake is $fl\n";
                    $eval->flake =~ m!github:([^/]+)/([^/]+)/(.+)$!;
                    $sendStatus->("src", $1, $2, $3);
                } else {
                    foreach my $input (@inputs) {
                        my $i = $eval->jobsetevalinputs->find({ name => $input, altnr => 0 });
                        if (! defined $i) {
                            print STDERR "Evaluation $eval doesn't have input $input\n";
                        }
                        next unless defined $i;
                        my $uri = $i->uri;
                        my $rev = $i->revision;
                        $uri =~ m![:/]([^/]+)/([^/]+?)(?:.git)?$!;
                        $sendStatus->($input, $1, $2, $rev);