From 2fb8e343ac2b9dcb5c2476648cf3e30ec6637afd Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Tue, 3 Jun 2008 12:12:08 +0000 Subject: [PATCH] Shorten debug messages --- compiler/coreSyn/CoreLint.lhs | 3 ++- compiler/simplCore/SimplUtils.lhs | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/coreSyn/CoreLint.lhs b/compiler/coreSyn/CoreLint.lhs index de9830b..7a5fac4 100644 --- a/compiler/coreSyn/CoreLint.lhs +++ b/compiler/coreSyn/CoreLint.lhs @@ -370,7 +370,8 @@ lintCoreExpr e@(Case scrut var alt_ty alts) = | debugIsOn && isAlgTyCon tycon && null (tyConDataCons tycon) -> - pprTrace "case binder's type has no constructors" (ppr e) + pprTrace "Lint warning: case binder's type has no constructors" (ppr var <+> ppr (idType var)) + -- This can legitimately happen for type families $ return () _otherwise -> return () diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index d7353dd..84506d8 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -1426,7 +1426,8 @@ prepareDefault _ _ case_bndr (Just (tycon, inst_tys)) imposs_cons (Just deflt_rh _ -> return [(DEFAULT, [], deflt_rhs)] | debugIsOn, isAlgTyCon tycon, [] <- tyConDataCons tycon - = pprTrace "prepareDefault" (ppr case_bndr <+> ppr tycon <+> ppr deflt_rhs) + = pprTrace "prepareDefault" (ppr case_bndr <+> ppr tycon) + -- This can legitimately happen for type families $ return [(DEFAULT, [], deflt_rhs)] --------- Catch-all cases ----------- -- 1.7.10.4