X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcExpr.hi-boot-6;h=f5d0d50e511d25b01b4a7b3f9a28fd28c17c7d0a;hb=32c4b4b2e71ab2f44a567addefb40f3d4b0fecb8;hp=75e2ce9d02dc7ce606046e9000d56ef860b7a016;hpb=2cc5b907318f97e19b28b2ad8ed9ff8c1f401dcc;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcExpr.hi-boot-6 b/ghc/compiler/typecheck/TcExpr.hi-boot-6
index 75e2ce9..f5d0d50 100644
--- a/ghc/compiler/typecheck/TcExpr.hi-boot-6
+++ b/ghc/compiler/typecheck/TcExpr.hi-boot-6
@@ -1,6 +1,16 @@
-__interface TcExpr 1 0 where
-__export TcExpr tcExpr ;
-1 tcExpr :: 
-	  RnHsSyn.RenamedHsExpr
+module TcExpr where
+
+tcCheckSigma :: 
+	  HsExpr.LHsExpr Name.Name
        -> TcType.TcType
-       -> TcMonad.TcM (TcHsSyn.TcExpr, Inst.LIE) ;
+       -> TcRnTypes.TcM (HsExpr.LHsExpr Var.Id)
+
+tcCheckRho :: 
+  	  HsExpr.LHsExpr Name.Name
+       -> TcType.TcType
+       -> TcRnTypes.TcM (HsExpr.LHsExpr Var.Id)
+
+tcMonoExpr :: 
+  	  HsExpr.LHsExpr Name.Name
+       -> TcUnify.Expected TcType.TcType
+       -> TcRnTypes.TcM (HsExpr.LHsExpr Var.Id)