diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-05-11 21:21:15 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-05-13 20:08:22 +0200 |
| commit | 8a44920cc87159991d08025ab3fc23cca97a04bb (patch) | |
| tree | 4d39210611be59a5acfb92ef3b2f9ac79281d7cb /compiler/GHC/Core/Utils.hs | |
| parent | e3ca8dacf121f3831248775238be4807f53f7ceb (diff) | |
| download | haskell-wip/misc-cleanup.tar.gz | |
Misc cleanupwip/misc-cleanup
- Remove groupWithName (unused)
- Use the RuntimeRepType synonym where possible
- Replace getUniqueM + mkSysLocalOrCoVar with mkSysLocalOrCoVarM
No functional changes.
Diffstat (limited to 'compiler/GHC/Core/Utils.hs')
| -rw-r--r-- | compiler/GHC/Core/Utils.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Utils.hs b/compiler/GHC/Core/Utils.hs index 73cf2712d3..6811498c54 100644 --- a/compiler/GHC/Core/Utils.hs +++ b/compiler/GHC/Core/Utils.hs @@ -103,7 +103,6 @@ import GHC.Types.Unique.Set import GHC.Data.FastString import GHC.Data.Maybe import GHC.Data.List.SetOps( minusList ) -import GHC.Data.Pair import GHC.Data.OrdList import GHC.Utils.Constants (debugIsOn) @@ -139,7 +138,7 @@ exprType (Let bind body) , Type ty <- rhs = substTyWithUnchecked [tv] [ty] (exprType body) | otherwise = exprType body exprType (Case _ _ ty _) = ty -exprType (Cast _ co) = pSnd (coercionKind co) +exprType (Cast _ co) = coercionRKind co exprType (Tick _ e) = exprType e exprType (Lam binder expr) = mkLamType binder (exprType expr) exprType e@(App _ _) |