Skip to content
Snippets Groups Projects
Commit d2360a00 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

sync-all: Add support for the 'remote set-branches' command

parent b5e0c5ad
No related branches found
Tags cabal-install-3.4.0.0-rc1
No related merge requests found
...@@ -209,7 +209,10 @@ sub scmall { ...@@ -209,7 +209,10 @@ sub scmall {
} }
if (@_ < 1) { help(1); } if (@_ < 1) { help(1); }
$subcommand = shift; $subcommand = shift;
if ($subcommand ne 'add' && $subcommand ne 'rm' && $subcommand ne 'set-url') { if ($subcommand ne 'add' &&
$subcommand ne 'rm' &&
$subcommand ne 'set-branches' &&
$subcommand ne 'set-url') {
help(1); help(1);
} }
while (@_ > 0 && $_[0] =~ /^-/) { while (@_ > 0 && $_[0] =~ /^-/) {
...@@ -398,6 +401,8 @@ sub scmall { ...@@ -398,6 +401,8 @@ sub scmall {
@scm_args = ("remote", "add", $branch_name, $path); @scm_args = ("remote", "add", $branch_name, $path);
} elsif ($subcommand eq 'rm') { } elsif ($subcommand eq 'rm') {
@scm_args = ("remote", "rm", $branch_name); @scm_args = ("remote", "rm", $branch_name);
} elsif ($subcommand eq 'set-branches') {
@scm_args = ("remote", "set-branches", $branch_name);
} elsif ($subcommand eq 'set-url') { } elsif ($subcommand eq 'set-url') {
@scm_args = ("remote", "set-url", $branch_name, $path); @scm_args = ("remote", "set-url", $branch_name, $path);
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment