Commit b2ec66c3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Don't needlessly go via SDoc in mkAutoCC

parent 4c5dd279
...@@ -149,9 +149,9 @@ mkAutoCC id mod is_caf ...@@ -149,9 +149,9 @@ mkAutoCC id mod is_caf
-- Unique. -- Unique.
-- See bug #249, tests prof001, prof002, also #2411 -- See bug #249, tests prof001, prof002, also #2411
str | isExternalName name = occNameFS (getOccName id) str | isExternalName name = occNameFS (getOccName id)
| otherwise = mkFastString $ showSDoc $ | otherwise = occNameFS (getOccName id)
ftext (occNameFS (getOccName id)) `appendFS`
<> char '_' <> pprUnique (getUnique name) mkFastString ('_' : show (getUnique name))
mkAllCafsCC :: Module -> SrcSpan -> CostCentre mkAllCafsCC :: Module -> SrcSpan -> CostCentre
mkAllCafsCC m loc = AllCafsCC { cc_mod = m, cc_loc = loc } mkAllCafsCC m loc = AllCafsCC { cc_mod = m, cc_loc = loc }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment