From 3c2944c037263b426c4fe60a3424c27b852ea71c Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Wed, 18 Mar 2020 12:13:59 +0100 Subject: Modules: Types --- haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 4 ++-- haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs | 8 ++++---- haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) (limited to 'haddock-api/src/Haddock/Backends/Hyperlinker') diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs index af7662f1..82d15d62 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs @@ -9,7 +9,7 @@ import Data.List ( isPrefixOf, isSuffixOf ) import qualified Data.ByteString as BS -import BasicTypes ( IntegralLit(..) ) +import GHC.Types.Basic ( IntegralLit(..) ) import GHC.Driver.Session import ErrUtils ( emptyMessages, pprLocErrMsg ) import FastString ( mkFastString ) @@ -17,7 +17,7 @@ import Lexer ( P(..), ParseResult(..), PState(..), Token(..) , mkPStatePure, lexer, mkParserFlags', getErrorMessages, addFatalError ) import Bag ( bagToList ) import Outputable ( showSDoc, panic, text, ($$) ) -import SrcLoc +import GHC.Types.SrcLoc import StringBuffer ( StringBuffer, atEnd ) import Haddock.Backends.Hyperlinker.Types as T diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs index 4f61e09e..a83c935c 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs @@ -13,10 +13,10 @@ import Haddock.Backends.Hyperlinker.Utils import qualified Data.ByteString as BS import GHC.Iface.Ext.Types -import Module ( ModuleName, moduleNameString ) -import Name ( getOccString, isInternalName, Name, nameModule, nameUnique ) -import SrcLoc -import Unique ( getKey ) +import GHC.Types.Module ( ModuleName, moduleNameString ) +import GHC.Types.Name ( getOccString, isInternalName, Name, nameModule, nameUnique ) +import GHC.Types.SrcLoc +import GHC.Types.Unique ( getKey ) import Encoding ( utf8DecodeByteString ) import System.FilePath.Posix (()) diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs index 7696d072..b3ccf1be 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs @@ -20,9 +20,9 @@ import Haddock.Backends.Xhtml.Utils import GHC import GHC.Iface.Ext.Types ( HieAST(..), HieType(..), HieArgs(..), TypeIndex, HieTypeFlat ) import GHC.Iface.Type -import Name ( getOccFS, getOccString ) -import Outputable ( showSDoc ) -import Var ( VarBndr(..) ) +import GHC.Types.Name ( getOccFS, getOccString ) +import Outputable ( showSDoc ) +import GHC.Types.Var ( VarBndr(..) ) import System.FilePath.Posix ((), (<.>)) -- cgit v1.2.3