diff options
| author | David Waern <david.waern@gmail.com> | 2009-11-14 11:56:39 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-11-14 11:56:39 +0000 |
| commit | e7be4057a769c79969f762e83c6fc8c751ad6533 (patch) | |
| tree | 3907ad4c67b6a3cb2ffe2d4974d23b21830e1888 | |
| parent | 8fd5ae0f3d101d7671b18fff5652f02e6e540b39 (diff) | |
Track change in HsType for the right compiler version
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 6b174dc2..fead8470 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1600,8 +1600,8 @@ 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" -ppr_mono_ty _ (HsSpliceTyOut _) _ = error "ppr_mono_ty HsSpliceTyOut" #if __GLASGOW_HASKELL__ >= 611 +ppr_mono_ty _ (HsSpliceTyOut _) _ = error "ppr_mono_ty HsSpliceTyOut" ppr_mono_ty _ (HsRecTy _) _ = error "ppr_mono_ty HsRecTy" #endif |