From d94579a594823b44334e81f0eb38e9a45945796d Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 1 Apr 2011 14:11:01 +0100
Subject: [PATCH] add a "set-origin" command

Use it like this

  ./sync-all -r http://darcs.haskell.org/ghc-git set-origin

to set the origin branches of all sub-repos to point to the appropriate
repo within the http://darcs.haskell.org/ghc-git tree.
---
 sync-all |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/sync-all b/sync-all
index 6f786cd..7bb8016 100755
--- a/sync-all
+++ b/sync-all
@@ -238,6 +238,9 @@ sub scmall {
                           or ($scm eq "git" and "send-email"));
                 $want_remote_repo = 1;
             }
+            elsif ($command =~ /^set-origin$/) {
+                @scm_args = ("remote", "set-url", "origin", $path);
+            }
             else {
                 die "Unknown command: $command";
             }
@@ -331,6 +334,7 @@ Supported commands:
   * --complete
   * --partial
  * send
+ * set-origin
 
 Available package-tags are:
 END
-- 
1.7.10.4