[project @ 2006-01-09 14:33:21 by simonmar]

Remove dead panic

[project @ 2006-01-09 14:33:21 by simonmar]
Remove dead panic
564fe4b7 · simonmar · e38f57d9 · 564fe4b7
Commit 564fe4b7 authored Jan 09, 2006 by simonmar
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -573,7 +573,6 @@ pprConDecl (ConDecl con expl tvs cxt details (ResTyGADT res_ty))
  where
    ppr_details (PrefixCon arg_tys) = dcolon <+> ppr (foldr mk_fun_ty res_ty arg_tys)
    ppr_details (RecCon fields)     = ppr fields <+> dcolon <+> ppr res_ty
-    ppr_details (PrefixCon _)       = pprPanic "pprConDecl" (ppr con)

    mk_fun_ty a b = noLoc (HsFunTy a b)