diff options
| author | simonpj <simonpj@microsoft.com> | 2010-09-13 09:53:00 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-09-13 09:53:00 +0000 |
| commit | 46972e7feceeef4daadd2beea5c6ab082ec05e38 (patch) | |
| tree | 8538a53801c4a0791b1b65969d4159589c537b63 /src/Haddock/Backends/Xhtml | |
| parent | d7491830802505bcfe4b518b190750e5ab021394 (diff) | |
Adapt to minor changes in internal GHC functions
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Decl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs index e45783bf..3fd5a3f6 100644 --- a/src/Haddock/Backends/Xhtml/Decl.hs +++ b/src/Haddock/Backends/Xhtml/Decl.hs @@ -727,7 +727,7 @@ ppr_mono_ty _ (HsSpliceTyOut {}) _ _ = error "ppr_mono_ty HsQuasiQuoteT #else ppr_mono_ty _ (HsQuasiQuoteTy {}) _ _ = error "ppr_mono_ty HsQuasiQuoteTy" #endif -ppr_mono_ty _ (HsRecTy {}) _ _ = error "ppr_mono_ty HsRecTy" +ppr_mono_ty _ (HsRecTy {}) _ = error "ppr_mono_ty HsRecTy" ppr_mono_ty ctxt_prec (HsAppTy fun_ty arg_ty) unicode qual = maybeParen ctxt_prec pREC_CON $ |