diff options
Diffstat (limited to 'compiler/prelude/PrelNames.hs')
| -rw-r--r-- | compiler/prelude/PrelNames.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/compiler/prelude/PrelNames.hs b/compiler/prelude/PrelNames.hs index c83c73f52a..030f10a0b0 100644 --- a/compiler/prelude/PrelNames.hs +++ b/compiler/prelude/PrelNames.hs @@ -328,6 +328,7 @@ basicKnownKeyNames -- Source locations callStackDataConName, callStackTyConName, + emptyCallStackName, pushCallStackName, srcLocDataConName, -- Annotation type checking @@ -1350,11 +1351,16 @@ isLabelClassName = clsQual gHC_OVER_LABELS (fsLit "IsLabel") isLabelClassNameKey -- Source Locations -callStackDataConName, callStackTyConName, srcLocDataConName :: Name +callStackDataConName, callStackTyConName, emptyCallStackName, pushCallStackName, + srcLocDataConName :: Name callStackDataConName = dcQual gHC_STACK_TYPES (fsLit "CallStack") callStackDataConKey callStackTyConName = tcQual gHC_STACK_TYPES (fsLit "CallStack") callStackTyConKey +emptyCallStackName + = varQual gHC_STACK_TYPES (fsLit "emptyCallStack") emptyCallStackKey +pushCallStackName + = varQual gHC_STACK_TYPES (fsLit "pushCallStack") pushCallStackKey srcLocDataConName = dcQual gHC_STACK_TYPES (fsLit "SrcLoc") srcLocDataConKey @@ -2162,6 +2168,9 @@ memptyClassOpKey = mkPreludeMiscIdUnique 514 mappendClassOpKey = mkPreludeMiscIdUnique 515 mconcatClassOpKey = mkPreludeMiscIdUnique 516 +emptyCallStackKey, pushCallStackKey :: Unique +emptyCallStackKey = mkPreludeMiscIdUnique 517 +pushCallStackKey = mkPreludeMiscIdUnique 518 {- ************************************************************************ |