From: simonpj@microsoft.com <unknown>
Date: Mon, 28 Jan 2008 21:34:09 +0000 (+0000)
Subject: Add missing (error) case in pprConDecl
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=78ba30ff18009286ac2b197bf86585ce458cc473;p=ghc-hetmet.git

Add missing (error) case in pprConDecl
---

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 87bf014..9461ab9 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -727,6 +727,11 @@ 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) _)
+  = pprPanic "pprConDecl" (ppr con)
+	-- In GADT syntax we don't allow infix constructors
+
+
 ppr_fields :: OutputableBndr name => [ConDeclField name] -> SDoc
 ppr_fields fields = braces (sep (punctuate comma (map ppr_fld fields)))
   where