From: simonmar <unknown>
Date: Fri, 23 Nov 2001 15:43:39 +0000 (+0000)
Subject: [project @ 2001-11-23 15:43:39 by simonmar]
X-Git-Tag: Approximately_9120_patches~533
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f8bf581798425c922ff6df9e20b8acab76da8185;p=ghc-hetmet.git

[project @ 2001-11-23 15:43:39 by simonmar]
unbreak tcModule.
---

diff --git a/ghc/compiler/typecheck/TcModule.lhs b/ghc/compiler/typecheck/TcModule.lhs
index e799f09..4a34cba 100644
--- a/ghc/compiler/typecheck/TcModule.lhs
+++ b/ghc/compiler/typecheck/TcModule.lhs
@@ -395,8 +395,9 @@ tcModule pcs hst get_fixity this_mod decls
      	-- Second pass over class and instance declarations, 
 	-- plus rules and foreign exports, to generate bindings
 	tcSetEnv env				$
+	tcClassDecls2 this_mod tycl_decls	`thenNF_Tc` \ (lie_clasdecls, cls_dm_binds, dm_ids) ->
+	tcExtendGlobalValEnv dm_ids		$
 	tcInstDecls2  local_insts		`thenNF_Tc` \ (lie_instdecls, inst_binds) ->
-	tcClassDecls2 this_mod tycl_decls	`thenNF_Tc` \ (lie_clasdecls, cls_dm_binds) ->
 	tcForeignExports decls			`thenTc`    \ (lie_fodecls,   foe_binds, foe_decls) ->
 	tcSourceRules source_rules		`thenNF_Tc` \ (lie_rules,     more_local_rules) ->