X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs-boot;h=d8cd81bc114c09da05da9f702d16cbc6754e2063;hb=e9f9ec1e57d53b9302a395ce0d02c0fa59e28341;hp=c9bab4bbfce5fa1645200ac6bfbceca92b29d25d;hpb=f3399c446c7507d46d6cc550aa2fe7027dbc1b5b;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index c9bab4b..d8cd81b 100644
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,22 +1,33 @@
 \begin{code}
 module TcSplice where
 import HsSyn	( HsSplice, HsBracket, HsQuasiQuote,
-                  HsExpr, 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 )
+import TcType	( BoxyRhoType, TcKind )
+import Annotations ( Annotation, CoreAnnTarget )
+import qualified Language.Haskell.TH as TH
 
 tcSpliceExpr :: HsSplice Name
 	     -> BoxyRhoType
 	     -> TcM (HsExpr TcId)
 
+kcSpliceType :: HsSplice Name -> FreeVars
+	     -> TcM (HsType Name, TcKind)
+
 tcBracket :: HsBracket Name 
 	  -> BoxyRhoType
 	  -> TcM (LHsExpr TcId)
 
 tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl RdrName]
 
-runQuasiQuoteExpr :: HsQuasiQuote Name.Name -> TcM (LHsExpr RdrName)
-runQuasiQuotePat  :: HsQuasiQuote Name -> TcM (LPat RdrName)
+lookupThName_maybe :: TH.Name -> TcM (Maybe Name)
+
+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}