diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-03-29 15:02:46 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-08 08:07:10 -0400 |
| commit | 352a463b7f82b504273cb274b3e0737112647c33 (patch) | |
| tree | 7a9148000cb24dd8496d6852ecbb55224c2cda59 | |
| parent | 8417e8667ccac3a58192c5864f9eaf234a4913b5 (diff) | |
| download | haskell-352a463b7f82b504273cb274b3e0737112647c33.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 |