+ where
+ name = getName id
+ -- beware: only external names are guaranteed to have unique
+ -- Occnames. If the name is not external, we must append its
+ -- Unique.
+ -- See bug #249, tests prof001, prof002, also #2411
+ str | isExternalName name = occNameFS (getOccName id)
+ | otherwise = mkFastString $ showSDoc $
+ ftext (occNameFS (getOccName id))
+ <> char '_' <> pprUnique (getUnique name)
+mkAllCafsCC :: Module -> CostCentre