[commit: ghc] master: Add "remote set-branches" support to sync-all (7d847e8)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7d847e8222e901bd41919c6363c2cb6597c20d88

>---------------------------------------------------------------

commit 7d847e8222e901bd41919c6363c2cb6597c20d88
Author: Ian Lynagh <[email protected]>
Date:   Tue Sep 4 14:57:22 2012 +0100

    Add "remote set-branches" support to sync-all

>---------------------------------------------------------------

 sync-all |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/sync-all b/sync-all
index 7c19892..70cde64 100755
--- a/sync-all
+++ b/sync-all
@@ -209,7 +209,10 @@ sub scmall {
         }
         if (@_ < 1) { help(1); }
         $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);
         }
         while (@_ > 0 && $_[0] =~ /^-/) {
@@ -398,6 +401,8 @@ sub scmall {
                 @scm_args = ("remote", "add", $branch_name, $path);
             } elsif ($subcommand eq 'rm') {
                 @scm_args = ("remote", "rm", $branch_name);
+            } elsif ($subcommand eq 'set-branches') {
+                @scm_args = ("remote", "set-branches", $branch_name);
             } elsif ($subcommand eq 'set-url') {
                 @scm_args = ("remote", "set-url", $branch_name, $path);
             }