X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcModule.lhs;h=6b7d0c44ff75404bea7f4ccabdc6197aef06b3f3;hb=2c6d73e2ca9a545c4295c6f532cd3612e7fd3d8d;hp=8842be5d8a9eba35b52568c673f65eca016020de;hpb=0004357ccaa3149cb112f5f5df1af60e65baad79;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcModule.lhs b/ghc/compiler/typecheck/TcModule.lhs
index 8842be5..6b7d0c4 100644
--- a/ghc/compiler/typecheck/TcModule.lhs
+++ b/ghc/compiler/typecheck/TcModule.lhs
@@ -13,7 +13,7 @@ module TcModule (
 
 import CmdLineOpts	( DynFlag(..), DynFlags, dopt )
 import HsSyn		( HsBinds(..), MonoBinds(..), HsDecl(..), HsExpr(..),
-			  Stmt(..), InPat(..), HsMatchContext(..), RuleDecl(..),
+			  Stmt(..), InPat(..), HsMatchContext(..), HsDoContext(..), RuleDecl(..),
 			  isIfaceRuleDecl, nullBinds, andMonoBindList, mkSimpleMatch
 			)
 import PrelNames	( SyntaxMap, mAIN_Name, mainName, ioTyConName, printName,
@@ -196,7 +196,7 @@ tc_stmts names stmts
     in
 
     traceTc (text "tcs 2") `thenNF_Tc_`
-    tcStmtsAndThen combine DoExpr io_ty stmts	(
+    tcStmtsAndThen combine (DoCtxt DoExpr) io_ty stmts	(
 	-- Look up the names right in the middle,
 	-- where they will all be in scope
 	mapNF_Tc tcLookupId names			`thenNF_Tc` \ ids ->