qbit/pr-status-pl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

force checkout and fetch

Browse Source
This commit is contained in:
Aaron Bieber 2023-06-06 18:46:06 -06:00
parent e162059f1d
commit fe2e75da63
No known key found for this signature in database
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flake.nix
View File

@ -20,7 +20,7 @@
in { in {
pr-status = pkgs.perlPackages.buildPerlPackage { pr-status = pkgs.perlPackages.buildPerlPackage {
pname = "pr-status"; pname = "pr-status";
version = "v0.0.2"; version = "v0.0.3";
src = ./.; src = ./.;
buildInputs = with pkgs; [ makeWrapper ]; buildInputs = with pkgs; [ makeWrapper ];
propagatedBuildInputs = with pkgs.perlPackages; [ propagatedBuildInputs = with pkgs.perlPackages; [

4
pr-status.pl
View File

@ -47,8 +47,8 @@ Mojo::IOLoop->recurring(
sub get_commit { sub get_commit {
my $pr = shift; my $pr = shift;
$repo->command( 'fetch', 'origin', "pull/${pr}/head:pr-status-${pr}" ); $repo->command( 'fetch', '-f', 'origin', "pull/${pr}/head:pr-status-${pr}" );
$repo->command( 'checkout', "pr-status-$pr" ); $repo->command( 'checkout', '-f', "pr-status-$pr" );
my $commit = $repo->command( 'rev-parse', 'HEAD' ); my $commit = $repo->command( 'rev-parse', 'HEAD' );
my $log = $repo->command( 'log', '-n', '1', '--pretty=format:%s' ); my $log = $repo->command( 'log', '-n', '1', '--pretty=format:%s' );
$repo->command( 'checkout', 'master' ); $repo->command( 'checkout', 'master' );