Commit 93d5de16 authored by Sylvain Henry's avatar Sylvain Henry Committed by Marge Bot
Browse files

Don't import GHC.Unit to reduce the number of dependencies

parent dafe7943
...@@ -9,7 +9,8 @@ module GHC.Builtin.Names.TH where ...@@ -9,7 +9,8 @@ module GHC.Builtin.Names.TH where
import GHC.Prelude () import GHC.Prelude ()
import GHC.Builtin.Names( mk_known_key_name ) import GHC.Builtin.Names( mk_known_key_name )
import GHC.Unit import GHC.Unit.Types
import GHC.Unit.Module.Name
import GHC.Types.Name( Name ) import GHC.Types.Name( Name )
import GHC.Types.Name.Occurrence( tcName, clsName, dataName, varName ) import GHC.Types.Name.Occurrence( tcName, clsName, dataName, varName )
import GHC.Types.Name.Reader( RdrName, nameRdrName ) import GHC.Types.Name.Reader( RdrName, nameRdrName )
......
...@@ -45,7 +45,7 @@ import GHC.Types.SrcLoc ( wiredInSrcSpan ) ...@@ -45,7 +45,7 @@ import GHC.Types.SrcLoc ( wiredInSrcSpan )
import GHC.Types.ForeignCall ( CLabelString ) import GHC.Types.ForeignCall ( CLabelString )
import GHC.Types.Unique ( Unique) import GHC.Types.Unique ( Unique)
import GHC.Builtin.Uniques (mkPrimOpIdUnique, mkPrimOpWrapperUnique ) import GHC.Builtin.Uniques (mkPrimOpIdUnique, mkPrimOpWrapperUnique )
import GHC.Unit ( Unit ) import GHC.Unit.Types ( Unit )
import GHC.Utils.Outputable import GHC.Utils.Outputable
import GHC.Data.FastString import GHC.Data.FastString
......
...@@ -31,7 +31,8 @@ import GHC.Driver.Types ...@@ -31,7 +31,8 @@ import GHC.Driver.Types
import GHC.Types.Name import GHC.Types.Name
import GHC.Types.Name.Env import GHC.Types.Name.Env
import GHC.Builtin.PrimOps import GHC.Builtin.PrimOps
import GHC.Unit import GHC.Unit.Types
import GHC.Unit.Module.Name
import GHC.Data.FastString import GHC.Data.FastString
import GHC.Utils.Panic import GHC.Utils.Panic
import GHC.Utils.Outputable import GHC.Utils.Outputable
......
...@@ -132,7 +132,7 @@ import GHC.Prelude ...@@ -132,7 +132,7 @@ import GHC.Prelude
import GHC.Types.Id.Info import GHC.Types.Id.Info
import GHC.Types.Basic import GHC.Types.Basic
import {-# SOURCE #-} GHC.Cmm.BlockId (BlockId, mkBlockId) import {-# SOURCE #-} GHC.Cmm.BlockId (BlockId, mkBlockId)
import GHC.Unit import GHC.Unit.Types
import GHC.Types.Name import GHC.Types.Name
import GHC.Types.Unique import GHC.Types.Unique
import GHC.Builtin.PrimOps import GHC.Builtin.PrimOps
......
...@@ -68,7 +68,7 @@ import GHC.Platform ...@@ -68,7 +68,7 @@ import GHC.Platform
-- Our intermediate code: -- Our intermediate code:
import GHC.Types.Basic import GHC.Types.Basic
import GHC.Cmm.BlockId import GHC.Cmm.BlockId
import GHC.Unit ( primUnitId ) import GHC.Unit.Types ( primUnitId )
import GHC.Cmm.Utils import GHC.Cmm.Utils
import GHC.Cmm.Switch import GHC.Cmm.Switch
import GHC.Cmm import GHC.Cmm
......
...@@ -81,7 +81,8 @@ import GHC.Core.Predicate ...@@ -81,7 +81,8 @@ import GHC.Core.Predicate
import GHC.Types.Var import GHC.Types.Var
import GHC.Types.Basic import GHC.Types.Basic
import GHC.Data.FastString import GHC.Data.FastString
import GHC.Unit import GHC.Unit.Types
import GHC.Unit.Module.Name
import GHC.Utils.Binary import GHC.Utils.Binary
import GHC.Types.Unique.Set import GHC.Types.Unique.Set
import GHC.Builtin.Uniques( mkAlphaTyVarUnique ) import GHC.Builtin.Uniques( mkAlphaTyVarUnique )
......
...@@ -36,7 +36,8 @@ import GHC.Prelude ...@@ -36,7 +36,8 @@ import GHC.Prelude
import GHC.Tc.Utils.TcType -- InstEnv is really part of the type checker, import GHC.Tc.Utils.TcType -- InstEnv is really part of the type checker,
-- and depends on TcType in many ways -- and depends on TcType in many ways
import GHC.Core ( IsOrphan(..), isOrphan, chooseOrphanAnchor ) import GHC.Core ( IsOrphan(..), isOrphan, chooseOrphanAnchor )
import GHC.Unit import GHC.Unit.Module.Env
import GHC.Unit.Types
import GHC.Core.Class import GHC.Core.Class
import GHC.Types.Var import GHC.Types.Var
import GHC.Types.Var.Set import GHC.Types.Var.Set
......
...@@ -22,7 +22,9 @@ import GHC.Driver.Phases ...@@ -22,7 +22,9 @@ import GHC.Driver.Phases
import GHC.Hs import GHC.Hs
import GHC.Types.SrcLoc import GHC.Types.SrcLoc
import GHC.Utils.Outputable import GHC.Utils.Outputable
import GHC.Unit import GHC.Unit.Module.Name
import GHC.Unit.Types
import GHC.Unit.Info
{- {-
************************************************************************ ************************************************************************
......
...@@ -36,8 +36,11 @@ module GHC.Driver.Finder ( ...@@ -36,8 +36,11 @@ module GHC.Driver.Finder (
import GHC.Prelude import GHC.Prelude
import GHC.Unit import GHC.Unit.Types
import GHC.Unit.Module
import GHC.Unit.Home
import GHC.Unit.State import GHC.Unit.State
import GHC.Driver.Types import GHC.Driver.Types
import GHC.Data.FastString import GHC.Data.FastString
import GHC.Utils.Misc import GHC.Utils.Misc
......
...@@ -105,7 +105,7 @@ import GHC.Data.OrdList ...@@ -105,7 +105,7 @@ import GHC.Data.OrdList
import GHC.Utils.Misc ( readRational, readHexRational ) import GHC.Utils.Misc ( readRational, readHexRational )
import GHC.Types.SrcLoc import GHC.Types.SrcLoc
import GHC.Unit import GHC.Unit.Types
import GHC.Types.Basic ( InlineSpec(..), RuleMatchInfo(..), import GHC.Types.Basic ( InlineSpec(..), RuleMatchInfo(..),
IntegralLit(..), FractionalLit(..), IntegralLit(..), FractionalLit(..),
SourceText(..) ) SourceText(..) )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment