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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/54a3963196cc3146f01543514882efaa8506c543

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

commit 54a3963196cc3146f01543514882efaa8506c543
Author: Simon Marlow <marlo...@gmail.com>
Date:   Wed Dec 19 10:13:09 2012 +0000

    'sync-all get -q' also passes -q to 'git submodule'

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

 sync-all |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/sync-all b/sync-all
index 225ad36..ce61346 100755
--- a/sync-all
+++ b/sync-all
@@ -773,21 +773,23 @@ sub main {
 
         scmall ($command, @_);
 
+        my @submodule_args = grep(/^-q/,@_);
+
         if ($command eq "get") {
-            &scm(".", "git", "submodule", "init");
+            &scm(".", "git", "submodule", "init", @submodule_args);
         }
         if ($command eq "pull") {
             my $gitConfig = &tryReadFile(".git/config");
             if ($gitConfig !~ /submodule/) {
-                &scm(".", "git", "submodule", "init");
+                &scm(".", "git", "submodule", "init", @submodule_args);
             }
         }
         if ($command eq "get" or $command eq "pull") {
             my $gitConfig = &tryReadFile(".git/config");
             if ($gitConfig !~ /submodule/) {
-                &scm(".", "git", "submodule", "init");
+                &scm(".", "git", "submodule", "init", @submodule_args);
             }
-            &scm(".", "git", "submodule", "update");
+            &scm(".", "git", "submodule", "update", @submodule_args);
         }
     }
 }



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to