X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs;h=2a3bce62f6de3c78a82e105af79acc4360c3b879;hb=14a496fd0b3aa821b69eb02736d5f41086576761;hp=b96307d215521d7360e090d3066aabf7338fc6dd;hpb=debb7b80e707c343a3a7d8993ffab19b83e5c52b;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index b96307d..2a3bce6 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -395,7 +395,7 @@ tc_bracket _ (DecBrG decls)
 
 tc_bracket _ (PatBr pat)
   = do	{ any_ty <- newFlexiTyVarTy liftedTypeKind
-	; _ <- tcPat ThPatQuote pat any_ty unitTy $ 
+	; _ <- tcPat ThPatQuote pat any_ty $ 
                return ()
 	; tcMetaTy patQTyConName }
 	-- Result type is PatQ (= Q Pat)