X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcTyClsDecls.lhs;h=8989d431044eb7b79f968cc574142a0363f05502;hb=02ec37666737ddca8d59ad4ba89ca8b0f12244e2;hp=1998911745b05ae9c6930a47b230e8bec98f1936;hpb=193627349898ca7d7b44a3b583d895f23851b038;p=ghc-hetmet.git

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]
   }