diff options
author | Ben Gamari <ben@smart-cactus.org> | 2020-03-18 14:42:43 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-03-18 14:42:43 -0400 |
commit | 7618613814d5aca838d70df0c1b20ec99f5611a8 (patch) | |
tree | a2b332704c4ff6157c49d3b211926cd294d8b21c /haddock-api/src/Haddock/Interface/Create.hs | |
parent | 3174ad334c2c505394703ce96fcb67ace94a427c (diff) | |
parent | 8787d8a840d27187f4c4f4f9c469dfca6137fec0 (diff) |
Merge pull request #1133 from hsyl20/wip/hsyl20/modules/types
Modules: Types
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Create.hs')
-rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 20 |
1 files changed, 10 insertions, 10 deletions
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 |