X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=sync-all;h=9b0706eb03101711f533e490b7389f6d9787c958;hp=743d3e657398c7aedb1326aad8e82d8f626d6e26;hb=aaafc986f2175958bcadd4af6b3c9889bfc89009;hpb=2fe9913d68e5f9031a41aafb08b3eba0b2f7b6ab

diff --git a/sync-all b/sync-all
index 743d3e6..9b0706e 100755
--- a/sync-all
+++ b/sync-all
@@ -299,6 +299,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");
             }
@@ -400,6 +404,7 @@ Supported commands:
  * fetch
  * send
  * set-origin
+ * set-push
  * new
 
 Available package-tags are: