diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-05-29 12:16:23 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2018-05-29 12:18:57 +0200 |
| commit | d14b1ec658b72f20aceed6835ae37e4c3d5bc5b9 (patch) | |
| tree | 05c681720dea26c79019502c121e74a69e02a205 /compiler/simplCore | |
| parent | 36656b9dfbc46da3c915dc453c301d20463899ff (diff) | |
| download | haskell-d14b1ec658b72f20aceed6835ae37e4c3d5bc5b9.tar.gz | |
Minor refactoring
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/SetLevels.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs index 2b73128a7d..25b20188e6 100644 --- a/compiler/simplCore/SetLevels.hs +++ b/compiler/simplCore/SetLevels.hs @@ -1648,7 +1648,7 @@ newLvlVar lvld_rhs join_arity_maybe is_mk_static = mkExportedVanillaId (mkSystemVarName uniq (mkFastString "static_ptr")) rhs_ty | otherwise - = mkLocalIdOrCoVar (mkSystemVarName uniq (mkFastString "lvl")) rhs_ty + = mkSysLocalOrCoVar (mkFastString "lvl") uniq rhs_ty cloneCaseBndrs :: LevelEnv -> Level -> [Var] -> LvlM (LevelEnv, [Var]) cloneCaseBndrs env@(LE { le_subst = subst, le_lvl_env = lvl_env, le_env = id_env }) |