Keep track of explicit kinding in HsTyVarBndr; plus fix Trac #3845

[ghc-hetmet.git] / compiler / typecheck / TcSplice.lhs-boot

diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index 11606da..d8cd81b 100644 (file)
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,8 +1,9 @@
 \begin{code}
 module TcSplice where
 import HsSyn   ( HsSplice, HsBracket, HsQuasiQuote,
-                  HsExpr, HsType, LHsExpr, LPat, LHsDecl )
+                  HsExpr, HsType, LHsType, LHsExpr, LPat, LHsDecl )
 import Name    ( Name )
+import NameSet ( FreeVars )
 import RdrName ( RdrName )
 import TcRnTypes( TcM, TcId )
 import TcType  ( BoxyRhoType, TcKind )
@@ -13,7 +14,7 @@ tcSpliceExpr :: HsSplice Name
             -> BoxyRhoType
             -> TcM (HsExpr TcId)
 
-kcSpliceType :: HsSplice Name
+kcSpliceType :: HsSplice Name -> FreeVars
             -> TcM (HsType Name, TcKind)
 
 tcBracket :: HsBracket Name 
@@ -24,7 +25,9 @@ tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl RdrName]
 
 lookupThName_maybe :: TH.Name -> TcM (Maybe Name)
 
-runQuasiQuoteExpr :: HsQuasiQuote Name.Name -> TcM (LHsExpr RdrName)
-runQuasiQuotePat  :: HsQuasiQuote Name -> TcM (LPat RdrName)
+runQuasiQuoteDecl :: HsQuasiQuote RdrName -> TcM [LHsDecl RdrName]
+runQuasiQuoteExpr :: HsQuasiQuote RdrName -> TcM (LHsExpr RdrName)
+runQuasiQuoteType :: HsQuasiQuote RdrName -> TcM (LHsType RdrName)
+runQuasiQuotePat  :: HsQuasiQuote RdrName -> TcM (LPat RdrName)
 runAnnotation     :: CoreAnnTarget -> LHsExpr Name -> TcM Annotation
 \end{code}