X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysWiredIn.lhs;fp=ghc%2Fcompiler%2Fprelude%2FTysWiredIn.lhs;h=6fa1dafc94d45ddbab67adaf8d50fe1f15b782eb;hb=dd313897eb9a14bcc7b81f97e4f2292c30039efd;hp=9dc312d2904386bdf9b7b251776a88abfd832f0e;hpb=89d6434a7ddb499c5b09eb3c70437782b0dcd501;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index 9dc312d..6fa1daf 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -21,9 +21,9 @@ module TysWiredIn (
 	charTy, stringTy, charTyConName,
 
 	
-	doubleTyCon, doubleDataCon, doubleTy,
+	doubleTyCon, doubleDataCon, doubleTy, doubleTyConName, 
 	
-	floatTyCon, floatDataCon, floatTy,
+	floatTyCon, floatDataCon, floatTy, floatTyConName,
 
 	intTyCon, intDataCon, intTyCon_RDR, intDataCon_RDR, intTyConName,
 	intTy,
@@ -176,7 +176,8 @@ pcTyCon is_enum is_rec name tyvars argvrcs cons
 		(mkArrowKinds (map tyVarKind tyvars) liftedTypeKind)
                 tyvars
                 argvrcs
-                (DataTyCon (Just []) cons is_enum)
+                []		-- No stupid theta
+		(DataTyCon cons is_enum)
 		[] 		-- No record selectors
                 is_rec
 		True		-- All the wired-in tycons have generics