From eb2c56298732c2566f369ff218d99bb9068729cd Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 3 Mar 2003 12:30:39 +0000
Subject: [PATCH] [project @ 2003-03-03 12:30:39 by simonmar] underscore some
 variables that aren't used.

---
 ghc/compiler/main/DriverPipeline.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index cec8928..5dd7188 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -736,7 +736,7 @@ run_phase Hsc basename suff input_fn output_fn
 	writeIORef v_Include_paths (current_dir : paths)
 	
   -- gather the imports and module name
-        (srcimps,imps,mod_name) <- 
+        (_,_,mod_name) <- 
             if extcoreish_suffix suff
 	     then do
                -- no explicit imports in ExtCore input.
@@ -812,7 +812,7 @@ run_phase Hsc basename suff input_fn output_fn
             HscNoRecomp pcs details iface -> do { SysTools.touch "Touching object file" o_file
 						; return Nothing } ;
 
-	    HscRecomp pcs details iface stub_h_exists stub_c_exists
+	    HscRecomp _pcs _details _iface stub_h_exists stub_c_exists
 		      _maybe_interpreted_code -> do
 
 			    -- deal with stubs
-- 
1.7.10.4