From 4f65e5525bb4eb5788d86de3ce6fb6fc82e38f6c Mon Sep 17 00:00:00 2001 From: Bertram Felgenhauer Date: Thu, 25 Sep 2008 05:38:20 +0000 Subject: [PATCH] Fix parsing of -ignore-package flag. --- compiler/main/DynFlags.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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') -- 1.7.10.4