X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;h=9d314f769bdeb4e9e81f3e4fef965a825bb47e5b;hb=4f92da533cd1c7b5f41ef8794ee6a284f1680413;hp=c324e95151b2dab8fda8753540236614955f1c3b;hpb=fcf6b22d0478be20e27c2245f3e34dd272e12522;p=ghc-hetmet.git

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index c324e95..9d314f7 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -238,6 +238,7 @@ genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName]
 pRELUDE		= mkBaseModule_ pRELUDE_NAME
 gHC_PRIM	= mkPrimModule FSLIT("GHC.Prim")   -- Primitive types and values
 gHC_BOOL	= mkPrimModule FSLIT("GHC.Bool")
+gHC_ORDERING	= mkPrimModule FSLIT("GHC.Ordering")
 gHC_GENERICS	= mkPrimModule FSLIT("GHC.Generics")
 gHC_BASE	= mkBaseModule FSLIT("GHC.Base")
 gHC_ENUM	= mkBaseModule FSLIT("GHC.Enum")
@@ -346,9 +347,9 @@ le_RDR 			= varQual_RDR  gHC_BASE FSLIT("<=")
 lt_RDR 			= varQual_RDR  gHC_BASE FSLIT("<") 
 gt_RDR 			= varQual_RDR  gHC_BASE FSLIT(">")  
 compare_RDR		= varQual_RDR  gHC_BASE FSLIT("compare") 
-ltTag_RDR		= dataQual_RDR gHC_BASE FSLIT("LT") 
-eqTag_RDR		= dataQual_RDR gHC_BASE FSLIT("EQ")
-gtTag_RDR		= dataQual_RDR gHC_BASE FSLIT("GT")
+ltTag_RDR		= dataQual_RDR gHC_ORDERING FSLIT("LT") 
+eqTag_RDR		= dataQual_RDR gHC_ORDERING FSLIT("EQ")
+gtTag_RDR		= dataQual_RDR gHC_ORDERING FSLIT("GT")
 
 eqClass_RDR		= nameRdrName eqClassName
 numClass_RDR 		= nameRdrName numClassName
@@ -477,7 +478,7 @@ and it's convenient to write them all down in one place.
 \begin{code}
 runMainIOName = varQual gHC_TOP_HANDLER FSLIT("runMainIO") runMainKey
 
-orderingTyConName = tcQual   gHC_BASE FSLIT("Ordering") orderingTyConKey
+orderingTyConName = tcQual   gHC_ORDERING FSLIT("Ordering") orderingTyConKey
 
 eitherTyConName	  = tcQual  dATA_EITHER FSLIT("Either") eitherTyConKey
 leftDataConName   = conName dATA_EITHER FSLIT("Left")   leftDataConKey