From 2d2587182568cc5aa4b29d401517337c32459c66 Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Tue, 21 Apr 2020 13:00:42 +0200 Subject: Module structure --- haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 2 +- haddock-api/src/Haddock/Backends/Xhtml/Layout.hs | 2 +- haddock-api/src/Haddock/Backends/Xhtml/Names.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'haddock-api/src/Haddock/Backends/Xhtml') diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index 153caf86..a8ff584d 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -38,7 +38,7 @@ import GHC.Types.Basic (PromotionFlag(..), isPromoted) import GHC hiding (LexicalFixity(..)) import GHC.Exts import GHC.Types.Name -import BooleanFormula +import GHC.Data.BooleanFormula import GHC.Types.Name.Reader ( rdrNameOcc ) -- | Pretty print a declaration diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs index e08bf575..21d544cd 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs @@ -49,7 +49,7 @@ import qualified Data.Map as Map import Text.XHtml hiding ( name, title, quote ) import Data.Maybe (fromMaybe) -import FastString ( unpackFS ) +import GHC.Data.FastString ( unpackFS ) import GHC import GHC.Types.Name (nameOccName) diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Names.hs b/haddock-api/src/Haddock/Backends/Xhtml/Names.hs index 6c5fecee..83279f70 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Names.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Names.hs @@ -29,7 +29,7 @@ import qualified Data.List as List import GHC hiding (LexicalFixity(..)) import GHC.Types.Name import GHC.Types.Name.Reader -import FastString (unpackFS) +import GHC.Data.FastString (unpackFS) -- | Indicator of how to render a 'DocName' into 'Html' -- cgit v1.2.3