X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs-boot;h=9b133566eac11a36a1d5ebeceff4013cf2397747;hb=960a5edb6ac87c7d85e36f4b70be8da0175819f7;hp=02503f3b1c49b1a7cf29457b7da9bac940a4f326;hpb=bebd5de9bc67fa6491cb7dbc06b41f109c8aab0d;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index 02503f3..9b13356 100644
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,10 +1,13 @@
 \begin{code}
 module TcSplice where
-import HsSyn	( HsSplice, HsBracket, HsExpr, LHsExpr, LHsDecl )
+import HsSyn	( HsSplice, HsBracket, HsQuasiQuote,
+                  HsExpr, LHsExpr, LPat, LHsDecl )
 import Name	( Name )
 import RdrName	( RdrName )
 import TcRnTypes( TcM, TcId )
 import TcType	( BoxyRhoType )
+import Annotations ( Annotation, CoreAnnTarget )
+import qualified Language.Haskell.TH as TH
 
 tcSpliceExpr :: HsSplice Name
 	     -> BoxyRhoType
@@ -15,4 +18,10 @@ tcBracket :: HsBracket Name
 	  -> TcM (LHsExpr TcId)
 
 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)
+runAnnotation     :: CoreAnnTarget -> LHsExpr Name -> TcM Annotation
 \end{code}