diff options
| author | David Waern <david.waern@gmail.com> | 2009-07-06 23:01:35 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-07-06 23:01:35 +0000 |
| commit | efa855c879246fb3869a1c957181f623d43cb265 (patch) | |
| tree | 2d119b0821b33b73866217b002a79dec3174b081 | |
| parent | 072a7318aaab784c4981cb4357a70f228b0136fd (diff) | |
Follow HsRecTy change with an #if __GLASGOW_HASKEL__ >= 611
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 9ad8f9da..410dd6b3 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1542,7 +1542,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-haddock" +#if __GLASGOW_HASKELL__ >= 611 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 $ |