auto cost centres for where decls

I have a large function with a lot of local definitions I would like indepdent cost centres for, however, since the local definitions arn't top-level auto-all doesn't catch them. is there some short cut to declare a whole list of decls should have cost centres? I was thinking something like foo = ... where {-# SCC "foo" #-} baz = ... bar = ... would cause baz and bar to have cost centres named "foo.baz" and "foo.bar" John -- --------------------------------------------------------------------------- John Meacham - California Institute of Technology, Alum. - john@foo.net ---------------------------------------------------------------------------