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/LaTeX.hs | |
| parent | 8976930748c4c9ba19cede2f0f29037d1cbce5e8 (diff) | |
TTG: AST Updates for !8308
Diffstat (limited to 'haddock-api/src/Haddock/Backends/LaTeX.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/LaTeX.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/LaTeX.hs b/haddock-api/src/Haddock/Backends/LaTeX.hs index 420bd3f0..38efeba8 100644 --- a/haddock-api/src/Haddock/Backends/LaTeX.hs +++ b/haddock-api/src/Haddock/Backends/LaTeX.hs @@ -24,7 +24,6 @@ import Haddock.GhcUtils import GHC.Utils.Ppr hiding (Doc, quote) import qualified GHC.Utils.Ppr as Pretty -import GHC.Types.Basic ( PromotionFlag(..), isPromoted ) import GHC hiding (fromMaybeContext ) import GHC.Types.Name.Occurrence import GHC.Types.Name ( nameOccName ) @@ -1155,7 +1154,7 @@ ppr_mono_ty (HsTyLit _ t) u = ppr_tylit t u ppr_mono_ty (HsStarTy _ isUni) unicode = starSymbol (isUni || unicode) -ppr_tylit :: HsTyLit -> Bool -> LaTeX +ppr_tylit :: HsTyLit DocNameI -> Bool -> LaTeX ppr_tylit (HsNumTy _ n) _ = integer n ppr_tylit (HsStrTy _ s) _ = text (show s) ppr_tylit (HsCharTy _ c) _ = text (show c) |