X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=sync-all;h=1de4fe3dcb7b7cb0ea6eb866a9c2f4960ea8b711;hp=1f0bfecad224e64133d383995cc746a3b52e26c3;hb=ce14988222b8da2abc57c68a087a61efe5ba709b;hpb=99daef874ab8f0c3b1d1ec1888d6bb6d368a4b79

diff --git a/sync-all b/sync-all
index 1f0bfec..1de4fe3 100644
--- 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$/, @_) {