id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
2915	Arity is smaller than need be	simonpj	simonpj	"Consider 
{{{
h x = let f = case x of { True -> t1; False -> t2 }
          in (f,f)
}}}
where `t1` and `t2` have arity 1. You'd think that `f` should have arity 1, but it doesn't.  (Reason: `exprArity`, used in `Simplify.addNonRecWithUnf`, doesn't look through the case.)

Fix this as part of the upcoming arity cleanup.

Simon"	bug	new	lowest	7.6.2	Compiler	6.10.1				Unknown/Multiple	Unknown/Multiple	Runtime performance bug	Unknown