diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-03-29 15:02:46 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-04-07 09:38:49 +0100 |
| commit | 5babf63a1574b11ba74227f990424b8fe856de1f (patch) | |
| tree | 9fd786d3f623b2e160a674be727f608a509838cb | |
| parent | 3e2034a5158ee3c99ace7e8043a9a2ad927da19d (diff) | |
| download | haskell-5babf63a1574b11ba74227f990424b8fe856de1f.tar.gz | |
Use DmdEnv rather than VarEnv DmdEnv
| -rw-r--r-- | compiler/GHC/Types/Demand.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Types/Demand.hs b/compiler/GHC/Types/Demand.hs index 61038d0492..a75c786bfb 100644 --- a/compiler/GHC/Types/Demand.hs +++ b/compiler/GHC/Types/Demand.hs @@ -1084,7 +1084,7 @@ a consequence of fixed-point iteration, it's not important that they agree. -- Subject to Note [Default demand on free variables and arguments] type DmdEnv = VarEnv Demand -emptyDmdEnv :: VarEnv Demand +emptyDmdEnv :: DmdEnv emptyDmdEnv = emptyVarEnv multDmdEnv :: Card -> DmdEnv -> DmdEnv |