X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=3cad7407810cdd87febf0ffcd62fe714836034fe;hb=9898358f3743548d00e55b26ab6784cadc2d6807;hp=5355d8f36c6ce27f65716a285a8d6e421ce1d9b1;hpb=3a61d75c70f61a2b919e94e85ffe1166e7151b5b;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 5355d8f..3cad740 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -665,7 +665,7 @@ runPhase (Cpp sf) _stop hsc_env _basename _suff input_fn get_output_fn maybe_loc
   = do let dflags0 = hsc_dflags hsc_env
        src_opts <- liftIO $ getOptionsFromFile dflags0 input_fn
        (dflags, unhandled_flags, warns)
-           <- liftIO $ parseDynamicFlags dflags0 src_opts
+           <- liftIO $ parseDynamicNoPackageFlags dflags0 src_opts
        liftIO $ handleFlagWarnings dflags warns  -- XXX: may exit the program
        liftIO $ checkProcessArgsResult unhandled_flags -- XXX: may throw program error
 
@@ -1188,8 +1188,8 @@ runPhase_MoveBinary dflags input_fn dep_packages
 	  Wrapped wrapmode ->
 	      do
 		let (o_base, o_ext) = splitExtension input_fn
-		let wrapped_executable | o_ext == "exe" = (o_base ++ "_real") <.> o_ext
-				       | otherwise = input_fn ++ "_real"
+		let wrapped_executable | o_ext == "exe" = (o_base ++ ".dyn") <.> o_ext
+				       | otherwise = input_fn ++ ".dyn"
 		behaviour <- wrapper_behaviour dflags wrapmode dep_packages
 
                 -- THINKME isn't this possible to do a bit nicer?