X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs-boot;h=9b133566eac11a36a1d5ebeceff4013cf2397747;hb=4d926e46bacf11ba9d7714c3f36f507c67fef0ba;hp=5ba223c83fb8e98744948c2fb2c1deb569e4cee8;hpb=7383309f0ffe52a30b214a7dcaefad0426f88aba;p=ghc-hetmet.git diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot index 5ba223c..9b13356 100644 --- a/compiler/typecheck/TcSplice.lhs-boot +++ b/compiler/typecheck/TcSplice.lhs-boot @@ -1,20 +1,27 @@ \begin{code} module TcSplice where -import HsSyn ( HsSplice, HsBracket, HsExpr, LHsExpr, HsType, LHsDecl ) +import HsSyn ( HsSplice, HsBracket, HsQuasiQuote, + HsExpr, LHsExpr, LPat, LHsDecl ) import Name ( Name ) import RdrName ( RdrName ) import TcRnTypes( TcM, TcId ) -import TcType ( TcKind, BoxyRhoType ) +import TcType ( BoxyRhoType ) +import Annotations ( Annotation, CoreAnnTarget ) +import qualified Language.Haskell.TH as TH tcSpliceExpr :: HsSplice Name -> BoxyRhoType -> TcM (HsExpr TcId) -kcSpliceType :: HsSplice Name -> TcM (HsType Name, TcKind) - tcBracket :: HsBracket Name -> BoxyRhoType -> 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}