diff options
| author | simonpj <simonpj@microsoft.com> | 2009-09-11 08:28:04 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2009-09-11 08:28:04 +0000 |
| commit | 9bebd32f424bacef54c42ff64cf7ed5e1620d4e0 (patch) | |
| tree | 2402e2003a733367d739df5717307f7e36a6bcc4 | |
| parent | 96549f4c87d3b4662f8caa20035ab4fb30f65ef3 (diff) | |
Track change in HsType
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 11382f7b..6b174dc2 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1599,7 +1599,8 @@ ppr_mono_ty _ (HsListTy ty) u = brackets (ppr_mono_lty pREC_TOP ty ppr_mono_ty _ (HsPArrTy ty) u = pabrackets (ppr_mono_lty pREC_TOP ty u) 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" +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 _ (HsRecTy _) _ = error "ppr_mono_ty HsRecTy" #endif |