X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelNames.lhs;h=f99fe5f148eb3d8fb785c25fca97e4c89d83888e;hb=b732f90c9e6b1c0177e04a5f84abac7f50cca4e4;hp=a152adedc7cf1c1fe67980c8b8ffcd05e3c8635f;hpb=e21b5f3296615c0daf6c2d602ac91b76a84ad3c1;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs
index a152ade..f99fe5f 100644
--- a/ghc/compiler/prelude/PrelNames.lhs
+++ b/ghc/compiler/prelude/PrelNames.lhs
@@ -784,19 +784,29 @@ deriving_occ_info
 
 -- these RDR names also have known keys, so we need to get back the RDR names to
 -- populate the occurrence list above.
-intTyCon_RDR 	= nameRdrName intTyConName
-eq_RDR 		= nameRdrName eqName
-ge_RDR 		= nameRdrName geName
-numClass_RDR 	= nameRdrName numClassName
-ordClass_RDR 	= nameRdrName ordClassName
-map_RDR 	= nameRdrName mapName
-append_RDR 	= nameRdrName appendName
-foldr_RDR 	= nameRdrName foldrName
-build_RDR 	= nameRdrName buildName
-enumFromTo_RDR 	= nameRdrName enumFromToName
-returnM_RDR 	= nameRdrName returnMName
-thenM_RDR 	= nameRdrName thenMName
-failM_RDR 	= nameRdrName failMName
+intTyCon_RDR 		= nameRdrName intTyConName
+eq_RDR 			= nameRdrName eqName
+ge_RDR 			= nameRdrName geName
+numClass_RDR 		= nameRdrName numClassName
+ordClass_RDR 		= nameRdrName ordClassName
+map_RDR 		= nameRdrName mapName
+append_RDR 		= nameRdrName appendName
+foldr_RDR 		= nameRdrName foldrName
+build_RDR 		= nameRdrName buildName
+enumFromTo_RDR 		= nameRdrName enumFromToName
+returnM_RDR 		= nameRdrName returnMName
+thenM_RDR 		= nameRdrName thenMName
+failM_RDR 		= nameRdrName failMName
+false_RDR		= nameRdrName falseDataConName
+true_RDR		= nameRdrName trueDataConName
+error_RDR		= nameRdrName errorName
+getTag_RDR		= nameRdrName getTagName
+fromEnum_RDR		= nameRdrName fromEnumName
+toEnum_RDR		= nameRdrName toEnumName
+enumFrom_RDR		= nameRdrName enumFromName
+mkInt_RDR		= nameRdrName intDataConName
+enumFromThen_RDR	= nameRdrName enumFromThenName
+enumFromThenTo_RDR	= nameRdrName enumFromThenToName
 \end{code}