Better error message for Template Haskell pattern brackets

38014860 · simonpj@microsoft.com · 5abbf7b5 · 38014860
Commit 38014860 authored Jan 23, 2006 by simonpj@microsoft.com
--- 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}