Unit: split and rename modules

Introduce GHC.Unit.* hierarchy for everything concerning units, packages
and modules.

Update Haddock submodule

compiler/GHC.hs

@@ -312,7 +312,7 @@ import GHC.Tc.Utils.Monad    ( finalSafeMode, fixSafeInstances, initIfaceTcRn )
 import GHC.Iface.Load        ( loadSysInterface )
 import GHC.Tc.Types
 import GHC.Core.Predicate
-import GHC.Driver.Packages
+import GHC.Unit.State
 import GHC.Types.Name.Set
 import GHC.Types.Name.Reader
 import GHC.Hs
@@ -341,7 +341,7 @@ import GHC.Driver.Ways
 import GHC.SysTools
 import GHC.SysTools.BaseDir
 import GHC.Types.Annotations
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Utils.Panic
 import GHC.Platform
 import GHC.Data.Bag        ( listToBag )

compiler/GHC/Builtin/Names.hs

@@ -143,7 +143,8 @@ this constructor directly (see  CorePrep.lookupIntegerSDataConName)
 When GHC reads the package data base, it (internally only) pretends it has UnitId
 `integer-wired-in` instead of the actual UnitId (which includes the version
 number); just like for `base` and other packages, as described in
-Note [Wired-in packages] in GHC.Types.Module. This is done in Packages.findWiredInPackages.
+Note [Wired-in units] in GHC.Unit.Module. This is done in
+GHC.Unit.State.findWiredInPackages.
 -}
 
 {-# LANGUAGE CPP #-}
@@ -165,7 +166,8 @@ where
 
 import GHC.Prelude
 
-import GHC.Types.Module
+import GHC.Unit.Types
+import GHC.Unit.Module.Name
 import GHC.Types.Name.Occurrence
 import GHC.Types.Name.Reader
 import GHC.Types.Unique

compiler/GHC/Builtin/Names.hs-boot

 module GHC.Builtin.Names where
 
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Types.Unique
 
 mAIN :: Module

compiler/GHC/Builtin/Names/TH.hs

@@ -9,7 +9,7 @@ module GHC.Builtin.Names.TH where
 import GHC.Prelude ()
 
 import GHC.Builtin.Names( mk_known_key_name )
-import GHC.Types.Module( Module, mkModuleNameFS, mkModule, thUnitId )
+import GHC.Unit
 import GHC.Types.Name( Name )
 import GHC.Types.Name.Occurrence( tcName, clsName, dataName, varName )
 import GHC.Types.Name.Reader( RdrName, nameRdrName )

compiler/GHC/Builtin/PrimOps.hs

@@ -44,7 +44,7 @@ import GHC.Types.Basic   ( Arity, Fixity(..), FixityDirection(..), Boxity(..),
 import GHC.Types.SrcLoc  ( wiredInSrcSpan )
 import GHC.Types.ForeignCall ( CLabelString )
 import GHC.Types.Unique  ( Unique, mkPrimOpIdUnique, mkPrimOpWrapperUnique )
-import GHC.Types.Module  ( Unit )
+import GHC.Unit          ( Unit )
 import GHC.Utils.Outputable
 import GHC.Data.FastString
 

compiler/GHC/Builtin/Types.hs

@@ -143,7 +143,7 @@ import {-# SOURCE #-} GHC.Builtin.Uniques
 import GHC.Core.Coercion.Axiom
 import GHC.Types.Id
 import GHC.Settings.Constants ( mAX_TUPLE_SIZE, mAX_CTUPLE_SIZE, mAX_SUM_SIZE )
-import GHC.Types.Module ( Module )
+import GHC.Unit.Module        ( Module )
 import GHC.Core.Type
 import GHC.Types.RepType
 import GHC.Core.DataCon

compiler/GHC/ByteCode/Linker.hs

@@ -31,7 +31,7 @@ import GHC.Driver.Types
 import GHC.Types.Name
 import GHC.Types.Name.Env
 import GHC.Builtin.PrimOps
-import GHC.Types.Module
+import GHC.Unit
 import GHC.Data.FastString
 import GHC.Utils.Panic
 import GHC.Utils.Outputable

compiler/GHC/Cmm/CLabel.hs

@@ -119,8 +119,8 @@ import GHC.Prelude
 import GHC.Types.Id.Info
 import GHC.Types.Basic
 import {-# SOURCE #-} GHC.Cmm.BlockId (BlockId, mkBlockId)
-import GHC.Driver.Packages
-import GHC.Types.Module
+import GHC.Unit.State
+import GHC.Unit
 import GHC.Types.Name
 import GHC.Types.Unique
 import GHC.Builtin.PrimOps

compiler/GHC/Cmm/DebugBlock.hs

@@ -34,7 +34,7 @@ import GHC.Cmm
 import GHC.Cmm.Utils
 import GHC.Core
 import GHC.Data.FastString ( nilFS, mkFastString )
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Utils.Outputable
 import GHC.Cmm.Ppr.Expr ( pprExpr )
 import GHC.Types.SrcLoc

compiler/GHC/Cmm/Info/Build.hs

@@ -18,7 +18,7 @@ import GHC.Cmm.Dataflow.Graph
 import GHC.Cmm.Dataflow.Label
 import GHC.Cmm.Dataflow.Collections
 import GHC.Cmm.Dataflow
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Platform
 import GHC.Data.Graph.Directed
 import GHC.Cmm.CLabel

compiler/GHC/Cmm/Parser.y

@@ -236,7 +236,7 @@ import GHC.Parser.Lexer
 
 import GHC.Types.CostCentre
 import GHC.Types.ForeignCall
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Platform
 import GHC.Types.Literal
 import GHC.Types.Unique

compiler/GHC/CmmToAsm.hs

@@ -95,7 +95,7 @@ import GHC.Utils.Outputable as Outputable
 import GHC.Data.FastString
 import GHC.Types.Unique.Set
 import GHC.Utils.Error
-import GHC.Types.Module
+import GHC.Unit
 import GHC.Data.Stream (Stream)
 import qualified GHC.Data.Stream as Stream
 

compiler/GHC/CmmToAsm/Dwarf.hs

@@ -10,7 +10,7 @@ import Config          ( cProjectName, cProjectVersion )
 import GHC.Core        ( Tickish(..) )
 import GHC.Cmm.DebugBlock
 import GHC.Driver.Session
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Utils.Outputable
 import GHC.Platform
 import GHC.Types.Unique

compiler/GHC/CmmToAsm/Monad.hs

@@ -64,7 +64,7 @@ import GHC.Types.Unique.FM
 import GHC.Types.Unique.Supply
 import GHC.Types.Unique         ( Unique )
 import GHC.Driver.Session
-import GHC.Types.Module
+import GHC.Unit.Module
 
 import Control.Monad    ( ap )
 

compiler/GHC/CmmToAsm/PIC.hs

@@ -71,7 +71,7 @@ import GHC.Cmm.CLabel           ( mkForeignLabel )
 
 
 import GHC.Types.Basic
-import GHC.Types.Module
+import GHC.Unit.Module
 
 import GHC.Utils.Outputable
 

compiler/GHC/CmmToAsm/X86/CodeGen.hs

@@ -67,7 +67,7 @@ import GHC.Platform
 -- Our intermediate code:
 import GHC.Types.Basic
 import GHC.Cmm.BlockId
-import GHC.Types.Module ( primUnitId )
+import GHC.Unit ( primUnitId )
 import GHC.Cmm.Utils
 import GHC.Cmm.Switch
 import GHC.Cmm

compiler/GHC/Core.hs

@@ -112,7 +112,7 @@ import GHC.Types.Name.Set
 import GHC.Types.Name.Env( NameEnv, emptyNameEnv )
 import GHC.Types.Literal
 import GHC.Core.DataCon
-import GHC.Types.Module
+import GHC.Unit.Module
 import GHC.Types.Basic
 import GHC.Utils.Outputable
 import GHC.Utils.Misc

compiler/GHC/Core/DataCon.hs

@@ -78,7 +78,7 @@ import GHC.Utils.Outputable
 import GHC.Utils.Misc
 import GHC.Types.Basic
 import GHC.Data.FastString
-import GHC.Types.Module
+import GHC.Unit
 import GHC.Utils.Binary
 import GHC.Types.Unique.Set
 import GHC.Types.Unique( mkAlphaTyVarUnique )

compiler/GHC/Core/InstEnv.hs

@@ -36,7 +36,7 @@ import GHC.Prelude
 import GHC.Tc.Utils.TcType -- InstEnv is really part of the type checker,
               -- and depends on TcType in many ways
 import GHC.Core ( IsOrphan(..), isOrphan, chooseOrphanAnchor )
-import GHC.Types.Module
+import GHC.Unit
 import GHC.Core.Class
 import GHC.Types.Var
 import GHC.Types.Var.Set

compiler/GHC/Core/Opt/Driver.hs

@@ -51,7 +51,7 @@ import GHC.Core.Opt.Exitify      ( exitifyProgram )
 import GHC.Core.Opt.WorkWrap     ( wwTopBinds )
 import GHC.Types.SrcLoc
 import GHC.Utils.Misc
-import GHC.Types.Module
+import GHC.Unit.Module.Env
 import GHC.Driver.Plugins ( withPlugins, installCoreToDos )
 import GHC.Runtime.Loader -- ( initializePlugins )