diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2019-02-10 06:20:18 -0500 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2019-02-10 06:21:55 -0500 |
| commit | 8ceef39304cf14741f08abdaac26099f9f1b8055 (patch) | |
| tree | 2a56ae1e6f4401a205d67529d8c3e0fb2868ae10 /haddock-api/src/Haddock/Backends/LaTeX.hs | |
| parent | 5fe0ac7b9eb2a7e5ba5350d85a74b2e4d8a27c60 (diff) | |
| parent | 3ee6526d4ae7bf4deb7cd1caf24b3d7355573576 (diff) | |
Merge remote-tracking branch 'gitlab/wip/T16236-2' into ghc-head
Diffstat (limited to 'haddock-api/src/Haddock/Backends/LaTeX.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/LaTeX.hs b/haddock-api/src/Haddock/Backends/LaTeX.hs index d0752506..dc083024 100644 --- a/haddock-api/src/Haddock/Backends/LaTeX.hs +++ b/haddock-api/src/Haddock/Backends/LaTeX.hs @@ -1003,9 +1003,9 @@ ppCtxType unicode ty = ppr_mono_ty (reparenTypePrec PREC_CTX ty) unicode ppLHsTypeArg :: Bool -> LHsTypeArg DocNameI -> LaTeX ppLHsTypeArg unicode (HsValArg ty) = ppLParendType unicode ty -ppLHsTypeArg unicode (HsTypeArg ki) = atSign unicode <> - ppLParendType unicode ki -ppLHsTypeArg _ (HsArgPar _) = text "" +ppLHsTypeArg unicode (HsTypeArg _ ki) = atSign unicode <> + ppLParendType unicode ki +ppLHsTypeArg _ (HsArgPar _) = text "" ppHsTyVarBndr :: Bool -> HsTyVarBndr DocNameI -> LaTeX ppHsTyVarBndr _ (UserTyVar _ (L _ name)) = ppDocName name |