X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=sync-all;h=d89e43954f59d0f6cf333fa3f58da5824f1c2f42;hp=6f786cd1aad523bba02083c3c68d0d7254804ae0;hb=0cb84f30414275484a23fffeb9d4db1f54808d4f;hpb=7978575e0e3b3b4b8b838b88750fc0b4aef90bc1

diff --git a/sync-all b/sync-all
index 6f786cd..d89e439 100755
--- a/sync-all
+++ b/sync-all
@@ -238,6 +238,15 @@ sub scmall {
                           or ($scm eq "git" and "send-email"));
                 $want_remote_repo = 1;
             }
+            elsif ($command =~ /^set-origin$/) {
+                @scm_args = ("remote", "set-url", "origin", $path);
+            }
+            elsif ($command =~ /^fetch$/) {
+                @scm_args = ("fetch", "origin");
+            }
+            elsif ($command =~ /^new$/) {
+                @scm_args = ("log", "origin..");
+            }
             else {
                 die "Unknown command: $command";
             }
@@ -330,7 +339,10 @@ Supported commands:
   * --<package-tag>
   * --complete
   * --partial
+ * fetch
  * send
+ * set-origin
+ * new
 
 Available package-tags are:
 END