From 380148608fa354ac972d45aa933400a1a5c4dd7f Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 23 Jan 2006 14:28:38 +0000
Subject: [PATCH] Better error message for Template Haskell pattern brackets

---
 ghc/compiler/typecheck/TcSplice.lhs |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index 578c96b..34e0394 100644
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -149,6 +149,9 @@ tc_bracket (DecBr decls)
 	; return (mkAppTy q_ty (mkListTy decl_ty))
 	-- Result type is Q [Dec]
     }
+
+tc_bracket (PatBr _)
+  = failWithTc (ptext SLIT("Tempate Haskell pattern brackets are not supported yet"))
 \end{code}
 
 
-- 
1.7.10.4