diff options
author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2008-01-31 02:48:45 +0000 |
---|---|---|
committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2008-01-31 02:48:45 +0000 |
commit | 63fe109f882b32e12eb70aa7e3a45049e13f6436 (patch) | |
tree | 35a286977c07cf3e22ac152b12f7ea0c294945cc | |
parent | 0c72be2588fbbd6410ae9ea5bf9307d593208919 (diff) | |
download | haskell-63fe109f882b32e12eb70aa7e3a45049e13f6436.tar.gz |
Warning clean up
-rw-r--r-- | compiler/hsSyn/HsDecls.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs index 9461ab97b4..4be320f8e5 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 |