diff options
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/AttachInstances.hs | 10 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 20 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Json.hs | 6 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Interface/LexParseRn.hs | 6 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Interface/ParseModuleHeader.hs | 2 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Rename.hs | 4 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Specialize.hs | 2 | 
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 )  | 
