diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-02-06 10:26:00 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-08 11:00:26 -0500 |
| commit | 0a4bbb526688a97db0edbd5acc7471e3b139ed7d (patch) | |
| tree | 22299cfc5be2ba94bf3acb12eb3451bf1928e6bd /compiler | |
| parent | 071bef18ccafb134ab886da9e362689b9f092dd3 (diff) | |
| download | haskell-0a4bbb526688a97db0edbd5acc7471e3b139ed7d.tar.gz | |
Remove a few undefined prel names
- breakpointAuto
- breakpointJump
- breakpointCondJump
- breakpointAutoJump
These Ids are never defined, but there were definitions about those in
PrelNames. Those are now removed.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/prelude/PrelNames.hs | 32 |
1 files changed, 3 insertions, 29 deletions
diff --git a/compiler/prelude/PrelNames.hs b/compiler/prelude/PrelNames.hs index 5c86f65bb8..94bb928cc2 100644 --- a/compiler/prelude/PrelNames.hs +++ b/compiler/prelude/PrelNames.hs @@ -360,7 +360,7 @@ basicKnownKeyNames -- Others otherwiseIdName, inlineIdName, eqStringName, assertName, breakpointName, breakpointCondName, - breakpointAutoName, opaqueTyConName, + opaqueTyConName, assertErrorName, traceName, printName, fstName, sndName, dollarName, @@ -1081,7 +1081,7 @@ groupWithName = varQual gHC_EXTS (fsLit "groupWith") groupWithIdKey -- Random PrelBase functions fromStringName, otherwiseIdName, foldrName, buildName, augmentName, mapName, appendName, assertName, - breakpointName, breakpointCondName, breakpointAutoName, + breakpointName, breakpointCondName, opaqueTyConName, dollarName :: Name dollarName = varQual gHC_BASE (fsLit "$") dollarIdKey otherwiseIdName = varQual gHC_BASE (fsLit "otherwise") otherwiseIdKey @@ -1093,29 +1093,9 @@ appendName = varQual gHC_BASE (fsLit "++") appendIdKey assertName = varQual gHC_BASE (fsLit "assert") assertIdKey breakpointName = varQual gHC_BASE (fsLit "breakpoint") breakpointIdKey breakpointCondName= varQual gHC_BASE (fsLit "breakpointCond") breakpointCondIdKey -breakpointAutoName= varQual gHC_BASE (fsLit "breakpointAuto") breakpointAutoIdKey opaqueTyConName = tcQual gHC_BASE (fsLit "Opaque") opaqueTyConKey fromStringName = varQual dATA_STRING (fsLit "fromString") fromStringClassOpKey -breakpointJumpName :: Name -breakpointJumpName - = mkInternalName - breakpointJumpIdKey - (mkOccNameFS varName (fsLit "breakpointJump")) - noSrcSpan -breakpointCondJumpName :: Name -breakpointCondJumpName - = mkInternalName - breakpointCondJumpIdKey - (mkOccNameFS varName (fsLit "breakpointCondJump")) - noSrcSpan -breakpointAutoJumpName :: Name -breakpointAutoJumpName - = mkInternalName - breakpointAutoJumpIdKey - (mkOccNameFS varName (fsLit "breakpointAutoJump")) - noSrcSpan - -- PrelTup fstName, sndName :: Name fstName = varQual dATA_TUPLE (fsLit "fst") fstIdKey @@ -2224,15 +2204,9 @@ runRWKey = mkPreludeMiscIdUnique 107 traceKey :: Unique traceKey = mkPreludeMiscIdUnique 108 -breakpointIdKey, breakpointCondIdKey, breakpointAutoIdKey, - breakpointJumpIdKey, breakpointCondJumpIdKey, - breakpointAutoJumpIdKey :: Unique +breakpointIdKey, breakpointCondIdKey :: Unique breakpointIdKey = mkPreludeMiscIdUnique 110 breakpointCondIdKey = mkPreludeMiscIdUnique 111 -breakpointAutoIdKey = mkPreludeMiscIdUnique 112 -breakpointJumpIdKey = mkPreludeMiscIdUnique 113 -breakpointCondJumpIdKey = mkPreludeMiscIdUnique 114 -breakpointAutoJumpIdKey = mkPreludeMiscIdUnique 115 inlineIdKey, noinlineIdKey :: Unique inlineIdKey = mkPreludeMiscIdUnique 120 |