diff options
author | Gabor Greif <ggreif@gmail.com> | 2018-05-29 12:16:23 +0200 |
---|---|---|
committer | Tobias Dammers <tdammers@gmail.com> | 2018-05-30 12:45:51 +0200 |
commit | 7573ce2e9e770f6e09230200f149c014867ada06 (patch) | |
tree | 05c681720dea26c79019502c121e74a69e02a205 | |
parent | 0210651161fe1cdd26ddfe1870b7ad5cdca70747 (diff) | |
download | haskell-7573ce2e9e770f6e09230200f149c014867ada06.tar.gz |
Minor refactoring
-rw-r--r-- | compiler/main/HscMain.hs | 2 | ||||
-rw-r--r-- | compiler/simplCore/SetLevels.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index cf1a4fb108..21224ebc45 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -363,7 +363,7 @@ hscParse' mod_summary srcs0 = nub $ filter (not . (tmpDir dflags `isPrefixOf`)) $ filter (not . (== n_hspp)) $ map FilePath.normalise - $ filter (not . (isPrefixOf "<")) + $ filter (not . isPrefixOf "<") $ map unpackFS $ srcfiles pst srcs1 = case ml_hs_file (ms_location mod_summary) of 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 }) |