Commit 4029d857 authored by's avatar
Browse files

Fix #4195 (isGadtSyntaxTyCon returns opposite result)

parent bc41b53d
......@@ -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]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment