X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FsimplCore%2FSimplUtils.lhs;h=84506d85cdeade446579af1b0ccd5f6b6cced86a;hb=2fb8e343ac2b9dcb5c2476648cf3e30ec6637afd;hp=d7353ddabe4e65eb6afae1b2ae00e51d233af0c5;hpb=bb7db74ea39eddce8f7502717bd9a043bc95e9f8;p=ghc-hetmet.git

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 -----------