diff options
| author | David Waern <david.waern@gmail.com> | 2009-11-28 15:05:03 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-11-28 15:05:03 +0000 |
| commit | 214f32e43e33285f2c3c05c55a4963d665e33e23 (patch) | |
| tree | 30865dbb97b696ac9b9777de2ed15f1f80f7fda7 /src/Haddock/Backends/Html.hs | |
| parent | a37eb41cff093672afa1d60b43ac27110b82a8f5 (diff) | |
Remove cruft due to compatibility with older GHCs
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 073dd66a..c29f2483 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1604,10 +1604,9 @@ ppr_mono_ty _ (HsPArrTy ty) u = pabrackets (ppr_mono_lty pREC_TOP ppr_mono_ty _ (HsPredTy p) u = parens (ppPred u p) ppr_mono_ty _ (HsNumTy n) _ = toHtml (show n) -- generics only ppr_mono_ty _ (HsSpliceTy _) _ = error "ppr_mono_ty HsSpliceTy" -#if __GLASGOW_HASKELL__ >= 611 ppr_mono_ty _ (HsSpliceTyOut _) _ = error "ppr_mono_ty HsSpliceTyOut" ppr_mono_ty _ (HsRecTy _) _ = error "ppr_mono_ty HsRecTy" -#endif + ppr_mono_ty ctxt_prec (HsAppTy fun_ty arg_ty) unicode = maybeParen ctxt_prec pREC_CON $ |