From 4029d85741ffa537084e97ba276605b6a443c304 Mon Sep 17 00:00:00 2001
From: "illissius@gmail.com" <unknown>
Date: Thu, 15 Jul 2010 13:41:34 +0000
Subject: [PATCH] Fix #4195 (isGadtSyntaxTyCon returns opposite result)

---
 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 1998911..8989d43 100644
--- a/compiler/typecheck/TcTyClsDecls.lhs
+++ b/compiler/typecheck/TcTyClsDecls.lhs
@@ -784,7 +784,7 @@ tcTyClDecl1 calc_isrec
 		   NewType  -> ASSERT( not (null data_cons) )
                                mkNewTyConRhs tc_name tycon (head data_cons)
 	; buildAlgTyCon tc_name final_tvs stupid_theta tc_rhs is_rec
-	    (want_generic && canDoGenerics data_cons) h98_syntax Nothing
+	    (want_generic && canDoGenerics data_cons) (not h98_syntax) Nothing
 	})
   ; return [ATyCon tycon]
   }
-- 
1.7.10.4