fix warning

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

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index e1a2f46..13c91c2 100644 (file)
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -956,7 +956,7 @@ runPhase CmmCpp input_fn dflags
 
 runPhase Cmm input_fn dflags
   = do
-        PipeEnv{stop_phase,src_basename} <- getPipeEnv
+        PipeEnv{src_basename} <- getPipeEnv
         let hsc_lang = hscTarget dflags
 
         let next_phase = hscNextPhase dflags HsSrcFile hsc_lang