aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/GhcUtils.hs
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/GhcUtils.hs
parent3174ad334c2c505394703ce96fcb67ace94a427c (diff)
Modules: Types
Diffstat (limited to 'haddock-api/src/Haddock/GhcUtils.hs')
-rw-r--r--haddock-api/src/Haddock/GhcUtils.hs20
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