From: simonpj@microsoft.com <unknown>
Date: Thu, 17 Aug 2006 13:32:20 +0000 (+0000)
Subject: One more hs-boot file
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1448e730dbd820e1380ea0a463590ace857bff68

One more hs-boot file
---

diff --git a/compiler/typecheck/TcExpr.lhs-boot b/compiler/typecheck/TcExpr.lhs-boot
index 1c4240d..be097ef 100644
--- a/compiler/typecheck/TcExpr.lhs-boot
+++ b/compiler/typecheck/TcExpr.lhs-boot
@@ -2,27 +2,26 @@
 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, BoxySigmaType, BoxyRhoType )
+import TcRnTypes( TcM, TcId, InstOrigin )
 
 tcPolyExpr :: 
 	  LHsExpr Name
        -> BoxySigmaType
-       -> TcM (LHsExpr Id)
+       -> TcM (LHsExpr TcId)
 
 tcMonoExpr :: 
   	  LHsExpr Name
        -> BoxyRhoType
-       -> TcM (LHsExpr Id)
+       -> TcM (LHsExpr TcId)
 
 tcInferRho :: 
   	  LHsExpr Name
-       -> TcM (LHsExpr Id, TcType)
+       -> TcM (LHsExpr TcId, TcRhoType)
 
 tcSyntaxOp :: 
 	  InstOrigin
        -> HsExpr Name
        -> TcType
-       -> TcM (HsExpr Id)
+       -> TcM (HsExpr TcId)
 \end{code}