From 7c7aa22db9e35b4b416dcdf52d5e9b32c61c9b52 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 16 Nov 2007 15:03:41 +0000
Subject: [PATCH] Wibble to fix Trac #1901 (shorten messsage slightly)

---
 compiler/typecheck/TcTyClsDecls.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs
index 3880f1f..83b2114 100644
--- a/compiler/typecheck/TcTyClsDecls.lhs
+++ b/compiler/typecheck/TcTyClsDecls.lhs
@@ -1214,7 +1214,7 @@ badGadtDecl tc_name
 
 badExistential con_name
   = hang (ptext SLIT("Data constructor") <+> quotes (ppr con_name) <+>
-		ptext SLIT("has existential type variables, or a context, or both"))
+		ptext SLIT("has existential type variables, or a context"))
        2 (parens $ ptext SLIT("Use -XExistentialQuantification or -XGADTs to allow this"))
 
 badStupidTheta tc_name
-- 
1.7.10.4