(F)SLIT -> (f)sLit in HsPat
[ghc-hetmet.git] / compiler / hsSyn / HsDecls.lhs
index 87bf014..4be320f 100644 (file)
@@ -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