X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=cd11e0f361971c6e10f3ec76726bc64439e0dc87;hp=bbc80512469a4426a410f75ac9c376e8bd229115;hb=374bc02f5feb4f5bf709d0a04d15ce28ec71eef1;hpb=674689e20127e199e76cd19dd2f81dc5c2346bac

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index bbc8051..cd11e0f 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -213,7 +213,7 @@ compile hsc_env mod_summary maybe_old_linkable old_iface mod_index nmods = do
 
    let runCompiler compiler handle
            = do mbResult <- compiler hsc_env' mod_summary
-                                     source_unchanged have_object old_iface
+                                     source_unchanged old_iface
                                      (Just (mod_index, nmods))
                 case mbResult of
                   Nothing     -> return CompErrs
@@ -751,7 +751,6 @@ runPhase (Hsc src_flavour) stop dflags0 basename suff input_fn get_output_fn _ma
   -- run the compiler!
 	mbResult <- hscCompileOneShot hsc_env
 			  mod_summary source_unchanged 
-			  False		-- No object file
 			  Nothing	-- No iface
                           Nothing       -- No "module i of n" progress info