diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-14 13:48:27 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-24 01:55:24 -0400 |
| commit | 37430251c3f684c46e893552dba78653d80e5243 (patch) | |
| tree | 3650a4cf7c6696c90fa2741029ddc254e4c1dbb9 /compiler/GHC/CoreToStg | |
| parent | a0ea59d641d400543e9e803007500da01eedf48a (diff) | |
| download | haskell-37430251c3f684c46e893552dba78653d80e5243.tar.gz | |
Rename GHC.Core.Arity into GHC.Core.Opt.Arity
Diffstat (limited to 'compiler/GHC/CoreToStg')
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index 8d4750c9e4..62fd46ff4c 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -26,7 +26,7 @@ import GHC.Driver.Types import GHC.Builtin.Names import GHC.Types.Id.Make ( realWorldPrimId ) import GHC.Core.Utils -import GHC.Core.Arity +import GHC.Core.Opt.Arity import GHC.Core.FVs import GHC.Core.Opt.Monad ( CoreToDo(..) ) import GHC.Core.Lint ( endPassIO ) @@ -1136,7 +1136,7 @@ After ANFing we get and now we do NOT want eta expansion to give f = /\a -> \ y -> (let s = h 3 in g s) y -Instead GHC.Core.Arity.etaExpand gives +Instead GHC.Core.Opt.Arity.etaExpand gives f = /\a -> \y -> let s = h 3 in g s y -} |