From 4322de246d35091e5e95a3a87fb4c1f9b7a61ee9 Mon Sep 17 00:00:00 2001 From: John Ericson Date: Thu, 26 May 2022 16:11:58 +0000 Subject: Split up `GHC.Core` somewhat - `GHC.Core.Annotated` now contains annotated Core - `GHC.Core.Rules` now contains the rules definitions - `GHC.Core.Orphans` now contains the orphans *something* - `GHC.Core.Unfoldings` now contains the unfoldings defintions - The old `GHC.Core.Rules`, which was about applying rules, is now `GHC.Core.Rules.Apply`. Compare with `GHC.Core.Simplify.Inlin` which was also about operations not the data structures and simple predictes themselves (which is `GHC.Core.Unfold`). --- compiler/GHC/Unit/Module/ModGuts.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'compiler/GHC/Unit/Module/ModGuts.hs') diff --git a/compiler/GHC/Unit/Module/ModGuts.hs b/compiler/GHC/Unit/Module/ModGuts.hs index d54e836d71..f67ad8296c 100644 --- a/compiler/GHC/Unit/Module/ModGuts.hs +++ b/compiler/GHC/Unit/Module/ModGuts.hs @@ -18,7 +18,8 @@ import GHC.Unit.Module.Warnings import GHC.Core.InstEnv ( InstEnv, ClsInst ) import GHC.Core.FamInstEnv -import GHC.Core ( CoreProgram, CoreRule ) +import GHC.Core ( CoreProgram ) +import GHC.Core.Rules ( CoreRule ) import GHC.Core.TyCon import GHC.Core.PatSyn @@ -67,7 +68,7 @@ data ModGuts -- ^ Family instances declared in this module mg_patsyns :: ![PatSyn], -- ^ Pattern synonyms declared in this module mg_rules :: ![CoreRule], -- ^ Before the core pipeline starts, contains - -- See Note [Overall plumbing for rules] in "GHC.Core.Rules" + -- See Note [Overall plumbing for rules] in "GHC.Core.Rules.Apply" mg_binds :: !CoreProgram, -- ^ Bindings for this module mg_foreign :: !ForeignStubs, -- ^ Foreign exports declared in this module mg_foreign_files :: ![(ForeignSrcLang, FilePath)], -- cgit v1.2.1