X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs-boot;h=a75ab3507ba33d07db3113ca6907335199459dee;hp=d1617706729f84bbccfbd9bb1e6eb2a4313cde4a;hb=d0faaa6fa0cecd23c5670fd199e9206275313666;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index d161770..a75ab35 100644
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,21 +1,33 @@
 \begin{code}
 module TcSplice where
-import HsSyn	( HsSplice, HsBracket, HsExpr, LHsExpr, HsType, LHsDecl )
-import Var	( Id )
+import HsSyn	( HsSplice, HsBracket, HsQuasiQuote,
+                  HsExpr, HsType, LHsType, LHsExpr, LPat, LHsDecl )
 import Name	( Name )
+import NameSet	( FreeVars )
 import RdrName	( RdrName )
-import TcRnTypes( TcM )
-import TcType	( TcKind, BoxyRhoType )
+import TcRnTypes( TcM, TcId )
+import TcType	( TcRhoType, TcKind )
+import Annotations ( Annotation, CoreAnnTarget )
+import qualified Language.Haskell.TH as TH
 
 tcSpliceExpr :: HsSplice Name
-	     -> BoxyRhoType
-	     -> TcM (HsExpr Id)
+	     -> TcRhoType
+	     -> TcM (HsExpr TcId)
 
-kcSpliceType :: HsSplice Name -> TcM (HsType Name, TcKind)
+kcSpliceType :: HsSplice Name -> FreeVars
+	     -> TcM (HsType Name, TcKind)
 
 tcBracket :: HsBracket Name 
-	  -> BoxyRhoType
-	  -> TcM (LHsExpr Id)
+	  -> TcRhoType
+	  -> TcM (LHsExpr TcId)
 
 tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl 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}