One last hs-boot update

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index cce4bec..f1e8c56 100644 (file)
--- 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}
 %************************************************************************
 
 \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 {
 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 (file)
--- 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 )
 \begin{code}
 module TcSplice where
 import HsSyn   ( HsSplice, HsBracket, HsExpr, LHsExpr, HsType, LHsDecl )

-import Var     ( Id )

 import Name    ( Name )
 import RdrName ( RdrName )
 import Name    ( Name )
 import RdrName ( RdrName )

-import TcRnTypes( TcM )
+import TcRnTypes( TcM, TcId )

 import TcType  ( TcKind, BoxyRhoType )
 
 tcSpliceExpr :: HsSplice Name
             -> BoxyRhoType
 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
 
 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}
 
 tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl RdrName]
 \end{code}