From e2b5796d58ffce3f62f71439df51932679ffb16c Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 21 Jun 2007 13:16:50 +0000
Subject: [PATCH] Improve 'my head exploded' error message

---
 compiler/typecheck/TcPat.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs
index 4d5aaf6..a8e2d39 100644
--- a/compiler/typecheck/TcPat.lhs
+++ b/compiler/typecheck/TcPat.lhs
@@ -920,6 +920,7 @@ patCtxt pat 	    = Just (hang (ptext SLIT("In the pattern:"))
 existentialExplode pat
   = hang (vcat [text "My brain just exploded.",
 	        text "I can't handle pattern bindings for existentially-quantified constructors.",
+	        text "Instead, use a case-expression to unpack the constructor.",
 		text "In the binding group for"])
 	4 (ppr pat)
 
-- 
1.7.10.4