Commit 564fe4b7 authored by simonmar's avatar simonmar
Browse files

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

Remove dead panic
parent e38f57d9
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment