diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2015-09-09 10:18:18 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2015-09-09 10:18:18 +0200 |
| commit | 25d72fbf45903da0b65fccfd3853c7a7ecc06b57 (patch) | |
| tree | a10105ab1515c118b13d6d709353660be2f4fc2a /compiler | |
| parent | c07fd1dc37aae27a118fafd482dab52ba4946cb3 (diff) | |
| download | haskell-wip/T10858.tar.gz | |
Move thenCmp to GHC.Classeswip/T10858
as we need to derive code already that, and that happens before
GHC.Base.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/prelude/PrelNames.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/prelude/PrelNames.hs b/compiler/prelude/PrelNames.hs index 597ef17aed..1515a2ff8e 100644 --- a/compiler/prelude/PrelNames.hs +++ b/compiler/prelude/PrelNames.hs @@ -611,11 +611,11 @@ compose_RDR :: RdrName compose_RDR = varQual_RDR gHC_BASE (fsLit ".") not_RDR, getTag_RDR, succ_RDR, pred_RDR, minBound_RDR, maxBound_RDR, - and_RDR, or_RDR, range_RDR, inRange_RDR, index_RDR, + and_RDR, thenCmp_RDR, range_RDR, inRange_RDR, index_RDR, unsafeIndex_RDR, unsafeRangeSize_RDR :: RdrName and_RDR = varQual_RDR gHC_CLASSES (fsLit "&&") -or_RDR = varQual_RDR gHC_CLASSES (fsLit "||") not_RDR = varQual_RDR gHC_CLASSES (fsLit "not") +thenCmp_RDR = varQual_RDR gHC_CLASSES (fsLit "thenCmp") getTag_RDR = varQual_RDR gHC_BASE (fsLit "getTag") succ_RDR = varQual_RDR gHC_ENUM (fsLit "succ") pred_RDR = varQual_RDR gHC_ENUM (fsLit "pred") @@ -725,7 +725,7 @@ notAssocDataCon_RDR = dataQual_RDR gHC_GENERICS (fsLit "NotAssociative") fmap_RDR, pure_RDR, ap_RDR, foldable_foldr_RDR, foldMap_RDR, - traverse_RDR, mempty_RDR, mappend_RDR, thenCmp_RDR :: RdrName + traverse_RDR, mempty_RDR, mappend_RDR :: RdrName fmap_RDR = varQual_RDR gHC_BASE (fsLit "fmap") pure_RDR = nameRdrName pureAName ap_RDR = nameRdrName apAName @@ -734,7 +734,6 @@ foldMap_RDR = varQual_RDR dATA_FOLDABLE (fsLit "foldMap") traverse_RDR = varQual_RDR dATA_TRAVERSABLE (fsLit "traverse") mempty_RDR = varQual_RDR gHC_BASE (fsLit "mempty") mappend_RDR = varQual_RDR gHC_BASE (fsLit "mappend") -thenCmp_RDR = varQual_RDR gHC_BASE (fsLit "thenCmp") ---------------------- varQual_RDR, tcQual_RDR, clsQual_RDR, dataQual_RDR |