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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f298598973ca51134074c8801f062382a86328ed

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

commit f298598973ca51134074c8801f062382a86328ed
Author: Simon Marlow <[email protected]>
Date:   Fri Apr 15 09:35:24 2011 +0100

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

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

 sync-all |   11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)

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;



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to