From 393220f6e889aa681f0751510df4b429d399305e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 10:06:57 +0000 Subject: [PATCH] Updates to handle Ordering moving from base to ghc-prim --- compiler/prelude/PrelNames.lhs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 1.7.10.4