Remove useless .hs-boot

18 files changed, 2 insertions, 41 deletions

diff --git a/compiler/GHC.hs b/compiler/GHC.hs
index 20f0ec633a..4fa2b60c82 100644
--- a/compiler/GHC.hs
+++ b/compiler/GHC.hs
@@ -392,7 +392,6 @@ import GHC.Types.TypeEnv
 import GHC.Unit
 import GHC.Unit.Env
 import GHC.Unit.External
-import GHC.Unit.State
 import GHC.Unit.Finder
 import GHC.Unit.Module.ModIface
 import GHC.Unit.Module.ModGuts
diff --git a/compiler/GHC/Driver/Backpack.hs b/compiler/GHC/Driver/Backpack.hs
index ca34af8d0f..9c32bb3fb6 100644
--- a/compiler/GHC/Driver/Backpack.hs
+++ b/compiler/GHC/Driver/Backpack.hs
@@ -59,7 +59,6 @@ import GHC.Utils.Logger
 import GHC.Unit
 import GHC.Unit.Env
 import GHC.Unit.External
-import GHC.Unit.State
 import GHC.Unit.Finder
 import GHC.Unit.Module.Graph
 import GHC.Unit.Module.ModSummary
diff --git a/compiler/GHC/Driver/CodeOutput.hs b/compiler/GHC/Driver/CodeOutput.hs
index e0b8879fd9..291cae88d5 100644
--- a/compiler/GHC/Driver/CodeOutput.hs
+++ b/compiler/GHC/Driver/CodeOutput.hs
@@ -46,7 +46,6 @@ import GHC.Utils.Exception (bracket)
 import GHC.Utils.Ppr (Mode(..))
 
 import GHC.Unit
-import GHC.Unit.State
 import GHC.Unit.Finder      ( mkStubPaths )
 
 import GHC.Types.SrcLoc
diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs
index 9a55807c0d..f68927ccb5 100644
--- a/compiler/GHC/Driver/Main.hs
+++ b/compiler/GHC/Driver/Main.hs
@@ -177,7 +177,6 @@ import GHC.Unit
 import GHC.Unit.Env
 import GHC.Unit.Finder
 import GHC.Unit.External
-import GHC.Unit.State
 import GHC.Unit.Module.ModDetails
 import GHC.Unit.Module.ModGuts
 import GHC.Unit.Module.ModIface
diff --git a/compiler/GHC/Driver/Make.hs b/compiler/GHC/Driver/Make.hs
index 9a14fc449d..185a2189d7 100644
--- a/compiler/GHC/Driver/Make.hs
+++ b/compiler/GHC/Driver/Make.hs
@@ -102,7 +102,6 @@ import GHC.Types.Name.Env
 
 import GHC.Unit
 import GHC.Unit.External
-import GHC.Unit.State
 import GHC.Unit.Finder
 import GHC.Unit.Module.ModSummary
 import GHC.Unit.Module.ModIface
diff --git a/compiler/GHC/Driver/Pipeline.hs b/compiler/GHC/Driver/Pipeline.hs
index 59b5b5ea56..a23cb76cbc 100644
--- a/compiler/GHC/Driver/Pipeline.hs
+++ b/compiler/GHC/Driver/Pipeline.hs
@@ -100,7 +100,6 @@ import GHC.Types.SourceError
 
 import GHC.Unit
 import GHC.Unit.Env
-import GHC.Unit.State
 import GHC.Unit.Finder
 import GHC.Unit.Module.ModSummary
 import GHC.Unit.Module.ModIface
diff --git a/compiler/GHC/Driver/Ppr.hs b/compiler/GHC/Driver/Ppr.hs
index 49188d08f0..a61d1cae29 100644
--- a/compiler/GHC/Driver/Ppr.hs
+++ b/compiler/GHC/Driver/Ppr.hs
@@ -12,7 +12,7 @@ where
 import GHC.Prelude
 
 import GHC.Driver.Session
-import {-# SOURCE #-} GHC.Unit.State
+import GHC.Unit.State
 
 import GHC.Utils.Outputable
 import GHC.Utils.Ppr       ( Mode(..) )
diff --git a/compiler/GHC/Driver/Session.hs-boot b/compiler/GHC/Driver/Session.hs-boot
deleted file mode 100644
index d2125e4b9d..0000000000
--- a/compiler/GHC/Driver/Session.hs-boot
+++ /dev/null
@@ -1,12 +0,0 @@
-module GHC.Driver.Session where
-
-import GHC.Prelude
-import GHC.Platform
-import {-# SOURCE #-} GHC.Utils.Outputable
-
-data DynFlags
-
-targetPlatform           :: DynFlags -> Platform
-hasPprDebug              :: DynFlags -> Bool
-hasNoDebugOutput         :: DynFlags -> Bool
-initSDocContext          :: DynFlags -> PprStyle -> SDocContext
diff --git a/compiler/GHC/Iface/Errors.hs b/compiler/GHC/Iface/Errors.hs
index 83f9b03920..29c88731f4 100644
--- a/compiler/GHC/Iface/Errors.hs
+++ b/compiler/GHC/Iface/Errors.hs
@@ -24,7 +24,6 @@ import GHC.Prelude
 import GHC.Unit
 import GHC.Unit.Env
 import GHC.Unit.Finder.Types
-import GHC.Unit.State
 import GHC.Utils.Outputable as Outputable
 
 
diff --git a/compiler/GHC/Iface/Rename.hs b/compiler/GHC/Iface/Rename.hs
index 7f51a8f933..ce49c7c976 100644
--- a/compiler/GHC/Iface/Rename.hs
+++ b/compiler/GHC/Iface/Rename.hs
@@ -25,7 +25,6 @@ import GHC.Iface.Env
 import {-# SOURCE #-} GHC.Iface.Load -- a bit vexing
 
 import GHC.Unit
-import GHC.Unit.State
 import GHC.Unit.Module.ModIface
 import GHC.Unit.Module.Deps
 
diff --git a/compiler/GHC/Linker/ExtraObj.hs b/compiler/GHC/Linker/ExtraObj.hs
index 81fa062805..1bc4f4234b 100644
--- a/compiler/GHC/Linker/ExtraObj.hs
+++ b/compiler/GHC/Linker/ExtraObj.hs
@@ -25,7 +25,6 @@ import GHC.Platform
 
 import GHC.Unit
 import GHC.Unit.Env
-import GHC.Unit.State
 
 import GHC.Utils.Asm
 import GHC.Utils.Error
diff --git a/compiler/GHC/Rename/Names.hs b/compiler/GHC/Rename/Names.hs
index b205fc4580..a79048272b 100644
--- a/compiler/GHC/Rename/Names.hs
+++ b/compiler/GHC/Rename/Names.hs
@@ -95,7 +95,6 @@ import qualified Data.Set as S
 import System.FilePath  ((</>))
 
 import System.IO
-import GHC.Unit.State
 
 {-
 ************************************************************************
diff --git a/compiler/GHC/Tc/Utils/Backpack.hs b/compiler/GHC/Tc/Utils/Backpack.hs
index 9c1d3a3991..ffaa882cf6 100644
--- a/compiler/GHC/Tc/Utils/Backpack.hs
+++ b/compiler/GHC/Tc/Utils/Backpack.hs
@@ -40,7 +40,6 @@ import GHC.Types.Unique.DSet
 import GHC.Types.Name.Shape
 
 import GHC.Unit
-import GHC.Unit.State
 import GHC.Unit.Finder
 import GHC.Unit.Module.Warnings
 import GHC.Unit.Module.ModIface
diff --git a/compiler/GHC/Types/Name/Ppr.hs b/compiler/GHC/Types/Name/Ppr.hs
index bced8034ae..d357d9e5bf 100644
--- a/compiler/GHC/Types/Name/Ppr.hs
+++ b/compiler/GHC/Types/Name/Ppr.hs
@@ -12,7 +12,6 @@ import GHC.Prelude
 
 import GHC.Unit
 import GHC.Unit.Env
-import GHC.Unit.State
 
 import GHC.Core.TyCon
 
diff --git a/compiler/GHC/Unit.hs b/compiler/GHC/Unit.hs
index 593e94fa38..2c33314429 100644
--- a/compiler/GHC/Unit.hs
+++ b/compiler/GHC/Unit.hs
@@ -17,8 +17,7 @@ import GHC.Unit.Info
 import GHC.Unit.Parser
 import GHC.Unit.Module
 import GHC.Unit.Home
--- source import to avoid DynFlags import loops
-import {-# SOURCE #-} GHC.Unit.State
+import GHC.Unit.State
 
 {-
 
diff --git a/compiler/GHC/Unit/Finder/Types.hs b/compiler/GHC/Unit/Finder/Types.hs
index c48b7d9789..d589cacbba 100644
--- a/compiler/GHC/Unit/Finder/Types.hs
+++ b/compiler/GHC/Unit/Finder/Types.hs
@@ -8,7 +8,6 @@ where
 
 import GHC.Prelude
 import GHC.Unit
-import GHC.Unit.State
 import qualified Data.Map as M
 import GHC.Fingerprint
 
diff --git a/compiler/GHC/Unit/State.hs-boot b/compiler/GHC/Unit/State.hs-boot
deleted file mode 100644
index 3d06269654..0000000000
--- a/compiler/GHC/Unit/State.hs-boot
+++ /dev/null
@@ -1,12 +0,0 @@
-module GHC.Unit.State where
-
-import {-# SOURCE #-} GHC.Utils.Outputable
-import {-# SOURCE #-} GHC.Unit.Types (UnitId,Unit)
-
-data UnitState
-data UnitDatabase unit
-
-emptyUnitState :: UnitState
-pprUnitIdForUser :: UnitState -> UnitId -> SDoc
-pprWithUnitState :: UnitState -> SDoc -> SDoc
-unwireUnit :: UnitState -> Unit-> Unit
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs
index 001caf1fff..afacb845de 100644
--- a/ghc/GHCi/UI.hs
+++ b/ghc/GHCi/UI.hs
@@ -78,7 +78,6 @@ import qualified GHC.Parser.Lexer as Lexer
 import GHC.Parser.Header ( toArgs )
 
 import GHC.Unit
-import GHC.Unit.State
 import GHC.Unit.Finder as Finder
 import GHC.Unit.Module.Graph (filterToposortToModules)
 import GHC.Unit.Module.ModSummary