projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5357e3c
)
Updates to handle Ordering moving from base to ghc-prim
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 10:06:57 +0000
(10:06 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 10:06:57 +0000
(10:06 +0000)
compiler/prelude/PrelNames.lhs
patch
|
blob
|
history
diff --git
a/compiler/prelude/PrelNames.lhs
b/compiler/prelude/PrelNames.lhs
index
c324e95
..
9d314f7
100644
(file)
--- 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")
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")
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")
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
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
\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
eitherTyConName = tcQual dATA_EITHER FSLIT("Either") eitherTyConKey
leftDataConName = conName dATA_EITHER FSLIT("Left") leftDataConKey