From fef5e32ca541eb70b22d8e8da611e4a2b797e00c Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Tue, 22 Dec 2015 16:26:56 +0000 Subject: Follow removal of NamedWildCard from HsType --- haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'haddock-api/src/Haddock/Backends/Xhtml') diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index 033f74ac..e20c9813 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -997,9 +997,6 @@ ppr_mono_ty ctxt_prec (HsDocTy ty _) unicode qual = ppr_mono_lty ctxt_prec ty unicode qual ppr_mono_ty _ (HsWildCardTy (AnonWildCard _)) _ _ = char '_' - -ppr_mono_ty _ (HsWildCardTy (NamedWildCard (L _ name))) _ q = ppDocName q Prefix True name - ppr_mono_ty _ (HsTyLit n) _ _ = ppr_tylit n ppr_tylit :: HsTyLit -> Html -- cgit v1.2.3