diff options
| -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 |