aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-03-18 12:13:59 +0100
committerSylvain Henry <sylvain@haskus.fr>2020-03-18 15:24:00 +0100
commit8787d8a840d27187f4c4f4f9c469dfca6137fec0 (patch)
treea2b332704c4ff6157c49d3b211926cd294d8b21c /haddock-api/src/Haddock/Interface
parent3174ad334c2c505394703ce96fcb67ace94a427c (diff)
Modules: Types
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
-rw-r--r--haddock-api/src/Haddock/Interface/AttachInstances.hs10
-rw-r--r--haddock-api/src/Haddock/Interface/Create.hs20
-rw-r--r--haddock-api/src/Haddock/Interface/Json.hs6
-rw-r--r--haddock-api/src/Haddock/Interface/LexParseRn.hs6
-rw-r--r--haddock-api/src/Haddock/Interface/ParseModuleHeader.hs2
-rw-r--r--haddock-api/src/Haddock/Interface/Rename.hs4
-rw-r--r--haddock-api/src/Haddock/Interface/Specialize.hs2
7 files changed, 25 insertions, 25 deletions
diff --git a/haddock-api/src/Haddock/Interface/AttachInstances.hs b/haddock-api/src/Haddock/Interface/AttachInstances.hs
index 65deffd3..5bec4d34 100644
--- a/haddock-api/src/Haddock/Interface/AttachInstances.hs
+++ b/haddock-api/src/Haddock/Interface/AttachInstances.hs
@@ -34,16 +34,16 @@ import ErrUtils
import GHC.Core.FamInstEnv
import GHC
import GHC.Core.InstEnv
-import Module ( ModuleSet, moduleSetElts )
+import GHC.Types.Module ( ModuleSet, moduleSetElts )
import MonadUtils (liftIO)
-import Name
-import NameEnv
+import GHC.Types.Name
+import GHC.Types.Name.Env
import Outputable (text, sep, (<+>))
-import SrcLoc
+import GHC.Types.SrcLoc
import GHC.Core.TyCon
import GHC.Core.TyCo.Rep
import TysPrim( funTyConName )
-import Var hiding (varName)
+import GHC.Types.Var hiding (varName)
type ExportedNames = Set.Set Name
type Modules = Set.Set Module
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index a606076d..cfd53a53 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -39,22 +39,22 @@ import Control.Applicative
import Control.Monad
import Data.Traversable
-import Avail hiding (avail)
-import qualified Avail
-import qualified Module
-import qualified SrcLoc
+import GHC.Types.Avail hiding (avail)
+import qualified GHC.Types.Avail as Avail
+import qualified GHC.Types.Module as Module
+import qualified GHC.Types.SrcLoc as SrcLoc
import GHC.Core.ConLike (ConLike(..))
import GHC
import GHC.Driver.Types
-import Name
-import NameSet
-import NameEnv
+import GHC.Types.Name
+import GHC.Types.Name.Set
+import GHC.Types.Name.Env
import GHC.Driver.Packages ( lookupModuleInAllPackages, PackageName(..) )
import Bag
-import RdrName
+import GHC.Types.Name.RdrName
import TcRnTypes
import FastString ( unpackFS, bytesFS )
-import BasicTypes ( StringLiteral(..), SourceText(..), PromotionFlag(..) )
+import GHC.Types.Basic ( StringLiteral(..), SourceText(..), PromotionFlag(..) )
import qualified Outputable as O
@@ -869,7 +869,7 @@ availExportItem is_sig modMap thisMod semMod warnings exportedNames
constructor_names =
filter isDataConName (availSubordinates avail)
--- this heavily depends on the invariants stated in Avail
+-- this heavily depends on the invariants stated in GHC.Types.Avail
availExportsDecl :: AvailInfo -> Bool
availExportsDecl (AvailTC ty_name names _)
| n : _ <- names = ty_name == n
diff --git a/haddock-api/src/Haddock/Interface/Json.hs b/haddock-api/src/Haddock/Interface/Json.hs
index 636d3e19..88387edd 100644
--- a/haddock-api/src/Haddock/Interface/Json.hs
+++ b/haddock-api/src/Haddock/Interface/Json.hs
@@ -5,10 +5,10 @@ module Haddock.Interface.Json (
, renderJson
) where
-import BasicTypes
+import GHC.Types.Basic
import Json
-import Module
-import Name
+import GHC.Types.Module
+import GHC.Types.Name
import Outputable
import Control.Arrow
diff --git a/haddock-api/src/Haddock/Interface/LexParseRn.hs b/haddock-api/src/Haddock/Interface/LexParseRn.hs
index 7323e68e..8a5a5594 100644
--- a/haddock-api/src/Haddock/Interface/LexParseRn.hs
+++ b/haddock-api/src/Haddock/Interface/LexParseRn.hs
@@ -19,7 +19,7 @@ module Haddock.Interface.LexParseRn
, processModuleHeader
) where
-import Avail
+import GHC.Types.Avail
import Control.Arrow
import Control.Monad
import Data.List
@@ -31,9 +31,9 @@ import GHC
import Haddock.Interface.ParseModuleHeader
import Haddock.Parser
import Haddock.Types
-import Name
+import GHC.Types.Name
import Outputable ( showPpr, showSDoc )
-import RdrName
+import GHC.Types.Name.RdrName
import EnumSet
import GHC.Rename.Env (dataTcOccs)
diff --git a/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs b/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs
index 4e91e321..cfe2d9d8 100644
--- a/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs
+++ b/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs
@@ -16,7 +16,7 @@ import Data.Char
import GHC.Driver.Session
import Haddock.Parser
import Haddock.Types
-import RdrName
+import GHC.Types.Name.RdrName
-- -----------------------------------------------------------------------------
-- Parsing module headers
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs
index 5b96c0a0..78c0c01b 100644
--- a/haddock-api/src/Haddock/Interface/Rename.hs
+++ b/haddock-api/src/Haddock/Interface/Rename.hs
@@ -21,9 +21,9 @@ import Haddock.Types
import Bag (emptyBag)
import GHC hiding (NoLink)
-import Name
+import GHC.Types.Name
import Outputable ( panic )
-import RdrName (RdrName(Exact))
+import GHC.Types.Name.RdrName (RdrName(Exact))
import TysWiredIn (eqTyCon_RDR)
import Control.Applicative
diff --git a/haddock-api/src/Haddock/Interface/Specialize.hs b/haddock-api/src/Haddock/Interface/Specialize.hs
index 03cc1b7e..92ad33d3 100644
--- a/haddock-api/src/Haddock/Interface/Specialize.hs
+++ b/haddock-api/src/Haddock/Interface/Specialize.hs
@@ -13,7 +13,7 @@ import Haddock.Syb
import Haddock.Types
import GHC
-import Name
+import GHC.Types.Name
import FastString
import TysPrim ( funTyConName )
import TysWiredIn ( listTyConName )