[commit: ghc] master: Add "./sync-all set-push" (577c006)

[Simon Marlow]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/577c006de0364a9c313b40cd00e744af1908c8e3

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

commit 577c006de0364a9c313b40cd00e744af1908c8e3
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Mon Apr 4 14:13:54 2011 +0100

    Add "./sync-all set-push"
    
    Use like this:
    
      ./sync-all -r me at darcs.haskell.org:/home/darcs set-push
    
    to set the default repo to push to (in remotes/origin) for each of
    the sub-repos.

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

 sync-all |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/sync-all b/sync-all
index d89e439..5336e29 100755
--- a/sync-all
+++ b/sync-all
@@ -241,6 +241,10 @@ sub scmall {
             elsif ($command =~ /^set-origin$/) {
                 @scm_args = ("remote", "set-url", "origin", $path);
             }
+            elsif ($command =~ /^set-push$/) {
+                @scm_args = ("remote", "set-url", "--push", "origin", $path);
+                print "foo\n", @scm_args;
+            }
             elsif ($command =~ /^fetch$/) {
                 @scm_args = ("fetch", "origin");
             }
@@ -342,6 +346,7 @@ Supported commands:
  * fetch
  * send
  * set-origin
+ * set-push
  * new
 
 Available package-tags are: