diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-02-24 20:59:43 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-26 15:10:58 -0500 |
commit | 817f93eac4d13f680e8e3e7a25eb403b1864f82e (patch) | |
tree | f7014721e49627f15d76f44a5bf663043e35fafc /compiler/GHC/CoreToStg/Prep.hs | |
parent | b2b49a0aad353201678970c76d8305a5dcb1bfab (diff) | |
download | haskell-817f93eac4d13f680e8e3e7a25eb403b1864f82e.tar.gz |
Modules: Core (#13009)
Update haddock submodule
Diffstat (limited to 'compiler/GHC/CoreToStg/Prep.hs')
-rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index 300c95f6df..3e7e5f3f55 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -24,13 +24,13 @@ import OccurAnal import GHC.Driver.Types import PrelNames import MkId ( realWorldPrimId ) -import CoreUtils -import CoreArity -import CoreFVs +import GHC.Core.Utils +import GHC.Core.Arity +import GHC.Core.FVs import CoreMonad ( CoreToDo(..) ) -import CoreLint ( endPassIO ) -import CoreSyn -import MkCore hiding( FloatBind(..) ) -- We use our own FloatBind here +import GHC.Core.Lint ( endPassIO ) +import GHC.Core +import GHC.Core.Make hiding( FloatBind(..) ) -- We use our own FloatBind here import Type import Literal import Coercion @@ -1094,7 +1094,7 @@ maybeSaturate fn expr n_args {- ************************************************************************ * * - Simple CoreSyn operations + Simple GHC.Core operations * * ************************************************************************ -} @@ -1137,7 +1137,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 CoreArity.etaExpand gives +Instead GHC.Core.Arity.etaExpand gives f = /\a -> \y -> let s = h 3 in g s y -} @@ -1161,7 +1161,7 @@ get to a partial application: -} -- When updating this function, make sure it lines up with --- CoreUtils.tryEtaReduce! +-- GHC.Core.Utils.tryEtaReduce! tryEtaReducePrep :: [CoreBndr] -> CoreExpr -> Maybe CoreExpr tryEtaReducePrep bndrs expr@(App _ _) | ok_to_eta_reduce f @@ -1564,7 +1564,7 @@ cpCloneBndr env bndr -- Drop (now-useless) rules/unfoldings -- See Note [Drop unfoldings and rules] - -- and Note [Preserve evaluatedness] in CoreTidy + -- and Note [Preserve evaluatedness] in GHC.Core.Op.Tidy ; let unfolding' = zapUnfolding (realIdUnfolding bndr) -- Simplifier will set the Id's unfolding @@ -1597,7 +1597,7 @@ We want to drop the unfolding/rules on every Id: we'd have to substitute in them HOWEVER, we want to preserve evaluated-ness; -see Note [Preserve evaluatedness] in CoreTidy. +see Note [Preserve evaluatedness] in GHC.Core.Op.Tidy. -} ------------------------------------------------------------------------------ |