diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-18 12:13:59 +0100 |
---|---|---|
committer | Sylvain Henry <sylvain@haskus.fr> | 2020-03-18 15:24:00 +0100 |
commit | 8787d8a840d27187f4c4f4f9c469dfca6137fec0 (patch) | |
tree | a2b332704c4ff6157c49d3b211926cd294d8b21c /haddock-api/src/Haddock/Backends/Hyperlinker | |
parent | 3174ad334c2c505394703ce96fcb67ace94a427c (diff) |
Modules: Types
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hyperlinker')
-rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 4 | ||||
-rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs | 8 | ||||
-rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs | 6 |
3 files changed, 9 insertions, 9 deletions
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 ((</>), (<.>)) |