From: Ian Lynagh <igloo@earth.li>
Date: Sun, 4 Jan 2009 18:46:52 +0000 (+0000)
Subject: Fix sync-all: Check for --complete/partial before --<anything>
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c5a514d1d44d46f59b6255c3e432b1bbe384c937

Fix sync-all: Check for --complete/partial before --<anything>
Patch from megacz in trac #2857
---

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$/, @_) {