Give locations of flag warnings/errors

[ghc-hetmet.git] / compiler / main / GHC.hs

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 19e36eb..7ecc194 100644 (file)
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -2000,8 +2000,8 @@ preprocessFile hsc_env src_fn mb_phase (Just (buf, _time))
        let 
            local_opts = getOptions dflags buf src_fn
        --
-       (dflags', leftovers, warns) <- parseDynamicFlags dflags (map unLoc local_opts)
-        checkProcessArgsResult leftovers src_fn
+       (dflags', leftovers, warns) <- parseDynamicFlags dflags local_opts
+        checkProcessArgsResult leftovers
         handleFlagWarnings dflags' warns
 
        let