diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-06-14 20:09:01 +0200 |
|---|---|---|
| committer | sheaf <sam.derbyshire@gmail.com> | 2022-07-06 11:29:39 +0200 |
| commit | 7bd04379ada2d9ff1c406d258629f8abdf617b30 (patch) | |
| tree | 5be3d914cd2b31c1c3ebfb3afc44f2341a53c90c /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 8976930748c4c9ba19cede2f0f29037d1cbce5e8 (diff) | |
TTG: AST Updates for !8308
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index d385b42a..8cf6e7af 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -35,7 +35,6 @@ import Data.Maybe import Text.XHtml hiding ( name, title, p, quote ) import GHC.Core.Type ( Specificity(..) ) -import GHC.Types.Basic (PromotionFlag(..), isPromoted) import GHC hiding (LexicalFixity(..), fromMaybeContext) import GHC.Exts import GHC.Types.Name @@ -609,7 +608,7 @@ ppClassDecl summary links instances fixities loc d subdocs ] -- Minimal complete definition - minimalBit = case [ s | MinimalSig _ _ (L _ s) <- sigs ] of + minimalBit = case [ s | MinimalSig _ (L _ s) <- sigs ] of -- Miminal complete definition = every shown method And xs : _ | sort [getName n | L _ (Var (L _ n)) <- xs] == sort [getName n | ClassOpSig _ _ ns _ <- sigs, L _ n <- ns] @@ -1300,7 +1299,7 @@ ppr_mono_ty (HsDocTy _ ty _) unicode qual emptyCtxts ppr_mono_ty (HsWildCardTy _) _ _ _ = char '_' ppr_mono_ty (HsTyLit _ n) _ _ _ = ppr_tylit n -ppr_tylit :: HsTyLit -> Html +ppr_tylit :: HsTyLit DocNameI -> Html ppr_tylit (HsNumTy _ n) = toHtml (show n) ppr_tylit (HsStrTy _ s) = toHtml (show s) ppr_tylit (HsCharTy _ c) = toHtml (show c) |