diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2019-01-26 21:45:59 +0200 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2019-03-29 12:12:11 -0700 |
| commit | dc78937c638d9e1e4f4cfd18f90ecf79d8649c06 (patch) | |
| tree | e975e989304297ec438a516fe1aeac95c808a670 /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 3efdc3a8da642d5d76b2c3f10a22f0503f65456a (diff) | |
Matching changes in GHC for #16236
(cherry picked from commit 3ee6526d4ae7bf4deb7cd1caf24b3d7355573576)
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index 56a79d57..40d630b0 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -1135,8 +1135,8 @@ ppFunLhType unicode qual emptyCtxts ty = ppr_mono_ty (reparenTypePrec PREC_FUN ppLHsTypeArg :: Unicode -> Qualification -> HideEmptyContexts -> LHsTypeArg DocNameI -> Html ppLHsTypeArg unicode qual emptyCtxts (HsValArg ty) = ppLParendType unicode qual emptyCtxts ty -ppLHsTypeArg unicode qual emptyCtxts (HsTypeArg ki) = atSign unicode <> - ppLParendType unicode qual emptyCtxts ki +ppLHsTypeArg unicode qual emptyCtxts (HsTypeArg _ ki) = atSign unicode <> + ppLParendType unicode qual emptyCtxts ki ppLHsTypeArg _ _ _ (HsArgPar _) = toHtml "" ppHsTyVarBndr :: Unicode -> Qualification -> HsTyVarBndr DocNameI -> Html ppHsTyVarBndr _ qual (UserTyVar _ (L _ name)) = |