From c0624c7661a229bfeed128ca96b07e2f4d5d677c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 20 Nov 2002 15:40:32 +0000
Subject: [PATCH] [project @ 2002-11-20 15:40:32 by simonpj] Wibble to fix
 :info

---
 ghc/compiler/typecheck/TcRnDriver.lhs |   13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index d251db6..8a3ca32 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -486,9 +486,16 @@ tcRnThing hsc_env pcs ictxt rdr_name
 	do { addMessages (head msgs_s) ; failM }
     else do {
 
-    mapM_ addMessages msgs_s ;	-- Add deprecation warnings
-    mapM tcLookupGlobal names	-- and lookup up the entities
-    }}
+	-- Add deprecation warnings
+    mapM_ addMessages msgs_s ;	
+
+	-- Slurp in the supporting declarations
+    tcg_env <- importSupportingDecls (mkFVs names) ;
+    setGblEnv tcg_env $ do {
+
+	-- And lookup up the entities
+    mapM tcLookupGlobal names
+    }}}
 \end{code}
 
 
-- 
1.7.10.4