From 63fe109f882b32e12eb70aa7e3a45049e13f6436 Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Thu, 31 Jan 2008 02:48:45 +0000 Subject: [PATCH] Warning clean up --- compiler/hsSyn/HsDecls.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs index 9461ab9..4be320f 100644 --- a/compiler/hsSyn/HsDecls.lhs +++ b/compiler/hsSyn/HsDecls.lhs @@ -727,7 +727,7 @@ pprConDecl (ConDecl con expl tvs cxt (PrefixCon arg_tys) (ResTyGADT res_ty) _) pprConDecl (ConDecl con expl tvs cxt (RecCon fields) (ResTyGADT res_ty) _) = sep [pprHsForAll expl tvs cxt, ppr con <+> ppr_fields fields <+> dcolon <+> ppr res_ty] -pprConDecl (ConDecl con expl tvs cxt (InfixCon _ _) (ResTyGADT res_ty) _) +pprConDecl (ConDecl con _expl _tvs _cxt (InfixCon _ _) (ResTyGADT _res_ty) _) = pprPanic "pprConDecl" (ppr con) -- In GADT syntax we don't allow infix constructors -- 1.7.10.4