aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-11-28 15:05:03 +0000
committerDavid Waern <david.waern@gmail.com>2009-11-28 15:05:03 +0000
commit214f32e43e33285f2c3c05c55a4963d665e33e23 (patch)
tree30865dbb97b696ac9b9777de2ed15f1f80f7fda7 /src/Haddock/Backends
parenta37eb41cff093672afa1d60b43ac27110b82a8f5 (diff)
Remove cruft due to compatibility with older GHCs
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Html.hs3
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 $