diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-18 12:13:59 +0100 |
---|---|---|
committer | Sylvain Henry <sylvain@haskus.fr> | 2020-03-20 09:34:39 +0100 |
commit | 3c2944c037263b426c4fe60a3424c27b852ea71c (patch) | |
tree | 944a7dec27a49eb9d24d58c743007cc47121e44f /haddock-api/src/Haddock/GhcUtils.hs | |
parent | 3174ad334c2c505394703ce96fcb67ace94a427c (diff) |
Modules: Types
Diffstat (limited to 'haddock-api/src/Haddock/GhcUtils.hs')
-rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs index 75e3fa45..b83920ee 100644 --- a/haddock-api/src/Haddock/GhcUtils.hs +++ b/haddock-api/src/Haddock/GhcUtils.hs @@ -26,18 +26,18 @@ import Haddock.Types( DocName, DocNameI ) import Exception import FV import Outputable ( Outputable, panic, showPpr ) -import Name -import NameSet -import Module +import GHC.Types.Name +import GHC.Types.Name.Set +import GHC.Types.Module import GHC.Driver.Types import GHC import GHC.Core.Class import GHC.Driver.Session -import SrcLoc ( advanceSrcLoc ) -import Var ( VarBndr(..), TyVarBinder, tyVarKind, updateTyVarKind, - isInvisibleArgFlag ) -import VarSet ( VarSet, emptyVarSet ) -import VarEnv ( TyVarEnv, extendVarEnv, elemVarEnv, emptyVarEnv ) +import GHC.Types.SrcLoc ( advanceSrcLoc ) +import GHC.Types.Var ( VarBndr(..), TyVarBinder, tyVarKind, updateTyVarKind, + isInvisibleArgFlag ) +import GHC.Types.Var.Set ( VarSet, emptyVarSet ) +import GHC.Types.Var.Env ( TyVarEnv, extendVarEnv, elemVarEnv, emptyVarEnv ) import GHC.Core.TyCo.Rep ( Type(..) ) import GHC.Core.Type ( isRuntimeRepVar ) import TysWiredIn( liftedRepDataConTyCon ) @@ -623,10 +623,10 @@ orderedFVs vs tys = -- For example, 'tyCoVarsOfTypeList' reports an incorrect order for the type -- of 'const :: a -> b -> a': -- --- >>> import Name +-- >>> import GHC.Types.Name -- >>> import TyCoRep -- >>> import TysPrim --- >>> import Var +-- >>> import GHC.Types.Var -- >>> a = TyVarTy alphaTyVar -- >>> b = TyVarTy betaTyVar -- >>> constTy = mkFunTys [a, b] a |