fix a warning

dmpots · Sep 8, 2009 · 95408c6 · 95408c6
1 parent 82062fe
commit 95408c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
@@ -119,7 +119,7 @@ setInteractiveContext :: HscEnv -> InteractiveContext -> TcRn a -> TcRn a
 setInteractiveContext hsc_env icxt thing_inside 
   = let -- Initialise the tcg_inst_env with instances from all home modules.  
         -- This mimics the more selective call to hptInstances in tcRnModule.
-	(home_insts, home_fam_insts) = hptInstances hsc_env (\mod -> True)
+	(home_insts, home_fam_insts) = hptInstances hsc_env (\_mod -> True)
     in
     updGblEnv (\env -> env { 
 	tcg_rdr_env      = ic_rn_gbl_env icxt,