X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2FTysWiredIn.lhs;h=db80d3cbf0f8ae36da106c01a8befa24c6c35ac5;hp=e713eb719c182ff772b0c8fc058a4fcefd95c55d;hb=80c89b80c355b2aaebcd53330e6c6170c3f05aca;hpb=a4572b40a9668d949b906c000e40d65ca9dc2798

diff --git a/compiler/prelude/TysWiredIn.lhs b/compiler/prelude/TysWiredIn.lhs
index e713eb7..db80d3c 100644
--- a/compiler/prelude/TysWiredIn.lhs
+++ b/compiler/prelude/TysWiredIn.lhs
@@ -67,7 +67,8 @@ import OccName		( mkOccNameFS, tcName, dataName, mkTupleOcc,
 import DataCon		( DataCon, mkDataCon, dataConWorkId, dataConSourceArity )
 import Var		( TyVar, tyVarKind )
 import TyCon		( TyCon, AlgTyConRhs(DataTyCon), tyConDataCons,
-			  mkTupleTyCon, mkAlgTyCon, tyConName )
+			  mkTupleTyCon, mkAlgTyCon, tyConName,
+			  AlgTyConParent(NoParentTyCon) )
 
 import BasicTypes	( Arity, RecFlag(..), Boxity(..), isBoxed,
 			  StrictnessMark(..) )
@@ -204,6 +205,7 @@ pcTyCon is_enum is_rec name tyvars cons
                 []		-- No stupid theta
 		(DataTyCon cons is_enum)
 		[] 		-- No record selectors
+		NoParentTyCon
                 is_rec
 		True		-- All the wired-in tycons have generics
 		False		-- Not in GADT syntax
@@ -230,6 +232,7 @@ pcDataConWithFixity declared_infix dc_name tyvars arg_tys tycon
 		[]	-- No equality spec
 		[]	-- No theta
 		arg_tys tycon
+		Nothing -- not a data instance
 		[]	-- No stupid theta
 		(mkDataConIds bogus_wrap_name wrk_name data_con)