X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcExpr.lhs-boot;h=5a4f005fbedbe494c75e0cbed07ed0e131361b87;hp=1c4240dcc0d4802921922f86031792f96b651e62;hb=HEAD;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/typecheck/TcExpr.lhs-boot b/compiler/typecheck/TcExpr.lhs-boot
index 1c4240d..5a4f005 100644
--- a/compiler/typecheck/TcExpr.lhs-boot
+++ b/compiler/typecheck/TcExpr.lhs-boot
@@ -2,27 +2,27 @@
 module TcExpr where
 import HsSyn	( HsExpr, LHsExpr )
 import Name	( Name )
-import Var	( Id )
-import TcType	( TcType, BoxySigmaType, BoxyRhoType )
-import TcRnTypes( TcM, InstOrigin )
+import TcType	( TcType, TcRhoType, TcSigmaType )
+import TcRnTypes( TcM, TcId, CtOrigin )
 
 tcPolyExpr :: 
 	  LHsExpr Name
-       -> BoxySigmaType
-       -> TcM (LHsExpr Id)
+       -> TcSigmaType
+       -> TcM (LHsExpr TcId)
 
-tcMonoExpr :: 
+tcMonoExpr, tcMonoExprNC :: 
   	  LHsExpr Name
-       -> BoxyRhoType
-       -> TcM (LHsExpr Id)
+       -> TcRhoType
+       -> TcM (LHsExpr TcId)
 
-tcInferRho :: 
+tcInferRho, tcInferRhoNC :: 
   	  LHsExpr Name
-       -> TcM (LHsExpr Id, TcType)
+       -> TcM (LHsExpr TcId, TcRhoType)
 
-tcSyntaxOp :: 
-	  InstOrigin
-       -> HsExpr Name
-       -> TcType
-       -> TcM (HsExpr Id)
+tcSyntaxOp :: CtOrigin
+       	   -> HsExpr Name
+       	   -> TcType
+       	   -> TcM (HsExpr TcId)
+
+tcCheckId :: Name -> TcRhoType -> TcM (HsExpr TcId)
 \end{code}