diff options
Diffstat (limited to 'compiler/GHC/Core.hs')
| -rw-r--r-- | compiler/GHC/Core.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Core.hs b/compiler/GHC/Core.hs index 2e41f9932b..41c1e138e2 100644 --- a/compiler/GHC/Core.hs +++ b/compiler/GHC/Core.hs @@ -95,7 +95,7 @@ module GHC.Core ( import GHC.Prelude import GHC.Platform -import GHC.Types.Var.Env( InScopeSet ) +import GHC.Types.Var.Env( InScopeSet, IdEnv ) import GHC.Types.Var import GHC.Core.Type import GHC.Core.Coercion @@ -1304,6 +1304,7 @@ data UnfoldingGuidance ug_args :: [Int], -- Discount if the argument is evaluated. -- (i.e., a simplification will definitely -- be possible). One elt of the list per *value* arg. + ug_fvs :: IdEnv Int, -- Discount for free variables ug_size :: Int, -- The "size" of the unfolding. |