From: Bertram Felgenhauer <int-e@gmx.de>
Date: Thu, 25 Sep 2008 05:38:20 +0000 (+0000)
Subject: Fix parsing of -ignore-package flag.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4f65e5525bb4eb5788d86de3ce6fb6fc82e38f6c

Fix parsing of -ignore-package flag.
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index bdca05f..34e9f9a 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1751,8 +1751,9 @@ parseDynamicFlags_ dflags args pkg_flags = do
       f (x : xs) = x : f xs
       f xs = xs
       args' = f args
-   
-      flag_spec | pkg_flags = dynamic_flags ++ package_flags
+
+      -- Note: -ignore-package (package_flags) must precede -i* (dynamic_flags)
+      flag_spec | pkg_flags = package_flags ++ dynamic_flags
                 | otherwise = dynamic_flags
 
   let ((leftover, errs, warns), dflags')