diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-03-16 14:15:29 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-03-20 21:16:46 -0400 |
| commit | 52ffd38c610f418ee1d1a549cfdfdaa11794ea40 (patch) | |
| tree | 603c8a1ecee10aa788d0068c9a1e5da1bd395d82 | |
| parent | c842611fc72d987519cd9fab1c351135ae93665e (diff) | |
| download | haskell-52ffd38c610f418ee1d1a549cfdfdaa11794ea40.tar.gz | |
Avoid some SOURCE imports
| -rw-r--r-- | compiler/GHC/Core/TyCo/Rep.hs | 1 | ||||
| -rw-r--r-- | compiler/GHC/Iface/Type.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Types/Var.hs | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/Core/TyCo/Rep.hs b/compiler/GHC/Core/TyCo/Rep.hs index a08da28421..2887977d26 100644 --- a/compiler/GHC/Core/TyCo/Rep.hs +++ b/compiler/GHC/Core/TyCo/Rep.hs @@ -81,7 +81,6 @@ import {-# SOURCE #-} GHC.Core.TyCo.Ppr ( pprType, pprCo, pprTyLit ) -- Transitively pulls in a LOT of stuff, better to break the loop -- friends: -import GHC.Iface.Type import GHC.Types.Var import GHC.Types.Var.Set import GHC.Core.TyCon diff --git a/compiler/GHC/Iface/Type.hs b/compiler/GHC/Iface/Type.hs index 4ee786fac6..ab7b344eb9 100644 --- a/compiler/GHC/Iface/Type.hs +++ b/compiler/GHC/Iface/Type.hs @@ -74,7 +74,7 @@ import {-# SOURCE #-} GHC.Builtin.Types , tupleTyConName , manyDataConTyCon, oneDataConTyCon , liftedRepTyCon, liftedDataConTyCon ) -import {-# SOURCE #-} GHC.Core.Type ( isRuntimeRepTy, isMultiplicityTy, isLevityTy ) +import GHC.Core.Type ( isRuntimeRepTy, isMultiplicityTy, isLevityTy ) import GHC.Core.TyCon hiding ( pprPromotionQuote ) import GHC.Core.Coercion.Axiom diff --git a/compiler/GHC/Types/Var.hs b/compiler/GHC/Types/Var.hs index 0a6dc6079a..cd32cf19c8 100644 --- a/compiler/GHC/Types/Var.hs +++ b/compiler/GHC/Types/Var.hs @@ -102,7 +102,7 @@ import {-# SOURCE #-} GHC.Tc.Utils.TcType( TcTyVarDetails, pprTcTyVarDetails, import {-# SOURCE #-} GHC.Types.Id.Info( IdDetails, IdInfo, coVarDetails, isCoVarDetails, vanillaIdInfo, pprIdDetails ) import {-# SOURCE #-} GHC.Builtin.Types ( manyDataConTy ) -import {-# SOURCE #-} GHC.Types.Name +import GHC.Types.Name hiding (varName) import GHC.Types.Unique ( Uniquable, Unique, getKey, getUnique , mkUniqueGrimily, nonDetCmpUnique ) import GHC.Utils.Misc |