X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs-boot;h=11606dad736e60d8cef7f1742a6fae435a4f33da;hp=9b133566eac11a36a1d5ebeceff4013cf2397747;hb=389cca214f33a29646e08d57e3dca862140007b2;hpb=97a8fe8780307e95829034117efa98d2e27109cd

diff --git a/compiler/typecheck/TcSplice.lhs-boot b/compiler/typecheck/TcSplice.lhs-boot
index 9b13356..11606da 100644
--- a/compiler/typecheck/TcSplice.lhs-boot
+++ b/compiler/typecheck/TcSplice.lhs-boot
@@ -1,11 +1,11 @@
 \begin{code}
 module TcSplice where
 import HsSyn	( HsSplice, HsBracket, HsQuasiQuote,
-                  HsExpr, LHsExpr, LPat, LHsDecl )
+                  HsExpr, HsType, LHsExpr, LPat, LHsDecl )
 import Name	( Name )
 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
 
@@ -13,6 +13,9 @@ tcSpliceExpr :: HsSplice Name
 	     -> BoxyRhoType
 	     -> TcM (HsExpr TcId)
 
+kcSpliceType :: HsSplice Name
+	     -> TcM (HsType Name, TcKind)
+
 tcBracket :: HsBracket Name 
 	  -> BoxyRhoType
 	  -> TcM (LHsExpr TcId)