From 3745ba90ed699fe0e21423a545972e45380e8ed2 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 5 Apr 2011 14:45:04 +0100
Subject: [PATCH] fix warning

---
 compiler/main/DriverPipeline.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4