From 95408c6b0ed3f44e37f716ca172ed6ad21cb8678 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 8 Sep 2009 13:15:51 +0000 Subject: [PATCH] fix a warning --- compiler/typecheck/TcSplice.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs index cd9170e..6146dfc 100644 --- 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, -- 1.7.10.4