Comments only
[ghc.git] / sync-all
index 1f0bfec..1de4fe3 100644 (file)
--- a/sync-all
+++ b/sync-all
@@ -199,15 +199,15 @@ sub main {
         elsif ($arg eq "--ignore-failure") {
             $ignore_failure = 1;
         }
+        elsif ($arg eq "--complete" || $arg eq "--partial") {
+            $get_mode = $arg;
+        }
         # --<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 eq "--complete" || $arg eq "--partial") {
-            $get_mode = $arg;
-        }
         else {
             unshift @_, $arg;
             if (grep /^-q$/, @_) {