X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=sync-all;h=728c725d4c8d0d8489e777df16b6ee69905f3f09;hb=9586648193284185c6ff1c75abd33071376fd7f6;hp=bd32e465226b89229819fae274b374c104584e0e;hpb=78946b2d0699f9b4a2b729a4a4bdd1e1c0ab778a;p=ghc-hetmet.git

diff --git a/sync-all b/sync-all
index bd32e46..728c725 100755
--- a/sync-all
+++ b/sync-all
@@ -262,7 +262,6 @@ sub scmall {
     }
 
     push(@args, @_);
-    print "args: @args\n";
 
     for $line (@packages) {
 
@@ -297,13 +296,17 @@ sub scmall {
                 # Hack around 'darcs whatsnew' failing if there are no changes
                 $ignore_failure = 1;
             }
+            elsif ($command =~ /^commit$/) {
+                @scm_args = ("commit");
+                # git fails if there is nothing to commit, so ignore failures
+                $ignore_failure = 1;
+            }
             elsif ($command =~ /^(?:pus|push)$/) {
                 @scm_args = "push";
                 $want_remote_repo = 1;
             }
             elsif ($command =~ /^(?:pul|pull)$/) {
                 @scm_args = "pull";
-                $want_remote_repo = 1;
                 # Q: should we append the -a argument for darcs repos?
             }
             elsif ($command =~ /^(?:g|ge|get)$/) {
@@ -400,6 +403,7 @@ What do you want to do?
 Supported commands:
 
  * whatsnew
+ * commit
  * push
  * pull
  * get, with options: