X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysWiredIn.lhs;fp=ghc%2Fcompiler%2Fprelude%2FTysWiredIn.lhs;h=29d069d610437bc7e69902ea6ee51e5ab8f1ae9d;hb=af5a215172aa3b964ece212f229bfee9f7c6b6b2;hp=c8ffc3b9a090790eb338bc8a865f7171dfa4662d;hpb=a34e79f1eb35d135e7d82a700cc77b40f9eb2b88;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index c8ffc3b..29d069d 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -65,7 +65,7 @@ import Name		( Name, nameUnique, nameOccName,
 import OccName		( mkOccFS, tcName, dataName, mkTupleOcc, mkDataConWorkerOcc )
 import DataCon		( DataCon, mkDataCon, dataConWorkId, dataConSourceArity )
 import Var		( TyVar, tyVarKind )
-import TyCon		( TyCon, AlgTyConFlavour(..), DataConDetails(..), tyConDataCons,
+import TyCon		( TyCon, AlgTyConRhs(DataTyCon), tyConDataCons,
 			  mkTupleTyCon, mkAlgTyCon, tyConName
 			)
 
@@ -176,9 +176,8 @@ pcTyCon is_enum is_rec name tyvars argvrcs cons
                 tyvars
                 []              -- No context
                 argvrcs
-                (DataCons cons)
+                (DataTyCon cons is_enum)
 		[]		-- No record selectors
-                (DataTyCon is_enum)
                 is_rec
 		True		-- All the wired-in tycons have generics