From 7383309f0ffe52a30b214a7dcaefad0426f88aba Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 17 Aug 2006 13:42:16 +0000
Subject: [PATCH] One last hs-boot update

---
 compiler/typecheck/TcSplice.lhs      |    2 +-
 compiler/typecheck/TcSplice.lhs-boot |    7 +++----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index cce4bec..f1e8c56 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -97,7 +97,7 @@ tcSpliceDecls e     = pprPanic "Cant do tcSpliceDecls without GHCi" (ppr e)
 %************************************************************************
 
 \begin{code}
-tcBracket :: HsBracket Name -> BoxyRhoType -> TcM (LHsExpr Id)
+tcBracket :: HsBracket Name -> BoxyRhoType -> TcM (LHsExpr TcId)
 tcBracket brack res_ty
   = getStage 				`thenM` \ level ->
     case bracketOK level of {
diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index d161770..5ba223c 100644
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,21 +1,20 @@
 \begin{code}
 module TcSplice where
 import HsSyn	( HsSplice, HsBracket, HsExpr, LHsExpr, HsType, LHsDecl )
-import Var	( Id )
 import Name	( Name )
 import RdrName	( RdrName )
-import TcRnTypes( TcM )
+import TcRnTypes( TcM, TcId )
 import TcType	( TcKind, BoxyRhoType )
 
 tcSpliceExpr :: HsSplice Name
 	     -> BoxyRhoType
-	     -> TcM (HsExpr Id)
+	     -> TcM (HsExpr TcId)
 
 kcSpliceType :: HsSplice Name -> TcM (HsType Name, TcKind)
 
 tcBracket :: HsBracket Name 
 	  -> BoxyRhoType
-	  -> TcM (LHsExpr Id)
+	  -> TcM (LHsExpr TcId)
 
 tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl RdrName]
 \end{code}
-- 
1.7.10.4