X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs;h=f68239ee26e8e267af6f222d3ad3d74df4b98b54;hp=1956e5ba7e24ad39e96e3dc60c202aaf964f3123;hb=cb8fb4dc68b503474bd65c0a669d9018a3ce96fe;hpb=43cc549d6b596a0ba33fff2b126e5149f07eca29

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index 1956e5b..f68239e 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -386,7 +386,7 @@ tc_bracket outer_stage (VarBr name) 	-- Note [Quoting names]
 	}
 
 tc_bracket _ (ExpBr expr) 
-  = do	{ any_ty <- newFlexiTyVarTy liftedTypeKind
+  = do	{ any_ty <- newFlexiTyVarTy openTypeKind
 	; _ <- tcMonoExprNC expr any_ty  -- NC for no context; tcBracket does that
 	; tcMetaTy expQTyConName }
 	-- Result type is ExpQ (= Q Exp)
@@ -407,7 +407,7 @@ tc_bracket _ (DecBrG decls)
 	; tcMetaTy decsQTyConName } -- Result type is Q [Dec]
 
 tc_bracket _ (PatBr pat)
-  = do	{ any_ty <- newFlexiTyVarTy liftedTypeKind
+  = do	{ any_ty <- newFlexiTyVarTy openTypeKind
 	; _ <- tcPat ThPatQuote pat any_ty $ 
                return ()
 	; tcMetaTy patQTyConName }