From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 15 Apr 2011 08:35:24 +0000 (+0100)
Subject: add --no-<tag>, so e.g. we can omit DPH with --no-dph
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f298598973ca51134074c8801f062382a86328ed

add --no-<tag>, so e.g. we can omit DPH with --no-dph
---

diff --git a/sync-all b/sync-all
index 02ac521..6ff06cc 100755
--- a/sync-all
+++ b/sync-all
@@ -311,6 +311,9 @@ sub scmall {
             elsif ($command =~ /^(?:g|ge|get)$/) {
                 # Skip any repositories we have not included the tag for
                 if (not defined($tags{$tag})) {
+                    $tags{$tag} = 0;
+                }
+                if ($tags{$tag} == 0) {
                     next;
                 }
                 
@@ -484,9 +487,11 @@ sub main {
         }
         # --<tag> says we grab the libs tagged 'tag' with
         # 'get'. It has no effect on the other commands.
-        elsif ($arg =~ m/^--/) {
-            $arg =~ s/^--//;
-            $tags{$arg} = 1;
+        elsif ($arg =~ m/^--no-(.*)$/) {
+            $tags{$1} = 0;
+        }
+        elsif ($arg =~ m/^--(.*)$/) {
+            $tags{$1} = 1;
         }
         else {
             unshift @_, $arg;