Add quasi-quotation, courtesy of Geoffrey Mainland

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

diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index d161770..c9bab4b 100644 (file)
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,21 +1,22 @@
 \begin{code}
 module TcSplice where
-import HsSyn   ( HsSplice, HsBracket, HsExpr, LHsExpr, HsType, LHsDecl )
-import Var     ( Id )
+import HsSyn   ( HsSplice, HsBracket, HsQuasiQuote,
+                  HsExpr, LHsExpr, LPat, LHsDecl )
 import Name    ( Name )
 import RdrName ( RdrName )
-import TcRnTypes( TcM )
-import TcType  ( TcKind, BoxyRhoType )
+import TcRnTypes( TcM, TcId )
+import TcType  ( BoxyRhoType )
 
 tcSpliceExpr :: HsSplice Name
             -> BoxyRhoType
-            -> TcM (HsExpr Id)
-
-kcSpliceType :: HsSplice Name -> TcM (HsType Name, TcKind)
+            -> TcM (HsExpr TcId)
 
 tcBracket :: HsBracket Name 
          -> BoxyRhoType
-         -> TcM (LHsExpr Id)
+         -> TcM (LHsExpr TcId)
 
 tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl RdrName]
+
+runQuasiQuoteExpr :: HsQuasiQuote Name.Name -> TcM (LHsExpr RdrName)
+runQuasiQuotePat  :: HsQuasiQuote Name -> TcM (LPat RdrName)
 \end{code}