%************************************************************************
\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 {
\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}