Commit 95408c6b authored by Simon Marlow's avatar Simon Marlow
Browse files

fix a warning

parent 82062fe3
...@@ -119,7 +119,7 @@ setInteractiveContext :: HscEnv -> InteractiveContext -> TcRn a -> TcRn a ...@@ -119,7 +119,7 @@ setInteractiveContext :: HscEnv -> InteractiveContext -> TcRn a -> TcRn a
setInteractiveContext hsc_env icxt thing_inside setInteractiveContext hsc_env icxt thing_inside
= let -- Initialise the tcg_inst_env with instances from all home modules. = let -- Initialise the tcg_inst_env with instances from all home modules.
-- This mimics the more selective call to hptInstances in tcRnModule. -- 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 in
updGblEnv (\env -> env { updGblEnv (\env -> env {
tcg_rdr_env = ic_rn_gbl_env icxt, tcg_rdr_env = ic_rn_gbl_env icxt,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment