From 20bf93490b37c0410d85a0ad4d38f9ddc2253589 Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Thu, 9 Apr 2020 20:03:43 +0200 Subject: Module renaming --- haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 7 ++++--- haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 1 - 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'haddock-api/src/Haddock/Backends') diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs index 82d15d62..ddf70b5f 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs @@ -11,10 +11,11 @@ import qualified Data.ByteString as BS import GHC.Types.Basic ( IntegralLit(..) ) import GHC.Driver.Session -import ErrUtils ( emptyMessages, pprLocErrMsg ) +import ErrUtils ( pprLocErrMsg ) import FastString ( mkFastString ) -import Lexer ( P(..), ParseResult(..), PState(..), Token(..) - , mkPStatePure, lexer, mkParserFlags', getErrorMessages, addFatalError ) +import GHC.Parser.Lexer as Lexer + ( P(..), ParseResult(..), PState(..), Token(..) + , mkPStatePure, lexer, mkParserFlags', getErrorMessages) import Bag ( bagToList ) import Outputable ( showSDoc, panic, text, ($$) ) import GHC.Types.SrcLoc diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index c22afeed..153caf86 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -40,7 +40,6 @@ import GHC.Exts import GHC.Types.Name import BooleanFormula import GHC.Types.Name.Reader ( rdrNameOcc ) -import Outputable ( panic ) -- | Pretty print a declaration ppDecl :: Bool -- ^ print summary info only -- cgit v1.2.3