Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/d2360a00c688aab2305270ad4a11e451870c51a7 >--------------------------------------------------------------- commit d2360a00c688aab2305270ad4a11e451870c51a7 Author: Ian Lynagh <[email protected]> Date: Sun Sep 2 15:51:10 2012 +0100 sync-all: Add support for the 'remote set-branches' command >--------------------------------------------------------------- sync-all | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/sync-all b/sync-all index 01ab083..7ff265b 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); } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
