sync-all | 7 +++++++
1 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/sync-all b/sync-all
index 1f0bfec..27a1ee0 100755
--- a/sync-all
+++ b/sync-all
@@ -80,6 +80,7 @@ sub scmall {
my $tag;
my $remotepath;
my $scm;
+ my $use_stgit;
my $path;
my $wd_before = getcwd;
@@ -105,6 +106,9 @@ sub scmall {
else {
$path = "$defaultrepo_base/$remotepath";
}
+
+ # If using git, check whether StGIT is in use
+ $use_stgit = ($scm eq "git" && -d "$path/.git/patches");
# Work out the arguments we should give to the SCM
if ($command =~
/^(?:w|wh|wha|what|whats|whatsn|whatsne|whatsnew)$/) {
@@ -119,6 +123,9 @@ sub scmall {
}
elsif ($command =~ /^(?:pul|pull)$/) {
@scm_args = "pull";
+ if ($use_stgit) {
+ $scm = "stg";
+ }
# Q: should we append the -a argument for darcs repos?
}
elsif ($command =~ /^(?:g|ge|get)$/) {
_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc
