From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 5 Apr 2011 13:45:04 +0000 (+0100)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3745ba90ed699fe0e21423a545972e45380e8ed2

fix warning
---

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index e1a2f46..13c91c2 100644
--- 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