+ where
+ name = getName id
+ -- beware: we might be making an auto CC for a compiler-generated
+ -- thing (like a CAF when -caf-all is on), so include the uniq.
+ -- See bug #249, tests prof001, prof002
+ str | isSystemName name = mkFastString (showSDoc (ppr name))
+ | otherwise = occNameFS (getOccName id)