diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-15 00:10:27 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-15 00:36:53 +0100 |
| commit | 509d2ad24e377b8f9d3487ab7a3b2c3d1d936eaa (patch) | |
| tree | d4f450196a096549acbc2ee7a744da9f3f977f74 /compiler/profiling | |
| parent | 2f01debc33a3ba60feaf2f9add0778bbd2ab81c2 (diff) | |
| download | haskell-509d2ad24e377b8f9d3487ab7a3b2c3d1d936eaa.tar.gz | |
Add a separate FastZString type
FastStrings are now always UTF8-encoded.
There's no StringTable for FastZString, but I don't think one is needed.
We only ever make a FastZString by running zEncodeFS on a FastString,
and the FastStrings are shared via the FastString StringTable, so we get
the same FastZString from the IORef.
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/CostCentre.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs index b342c31380..8d9c269305 100644 --- a/compiler/profiling/CostCentre.lhs +++ b/compiler/profiling/CostCentre.lhs @@ -277,7 +277,7 @@ ppCostCentreLbl :: CostCentre -> SDoc ppCostCentreLbl (AllCafsCC {cc_mod = m}) = ppr m <> text "_CAFs_cc" ppCostCentreLbl (NormalCC {cc_key = k, cc_name = n, cc_mod = m, cc_is_caf = is_caf}) - = ppr m <> char '_' <> ftext (zEncodeFS n) <> char '_' <> + = ppr m <> char '_' <> ztext (zEncodeFS n) <> char '_' <> case is_caf of { CafCC -> ptext (sLit "CAF"); _ -> ppr (mkUniqueGrimily k)} <> text "_cc" -- This is the name to go in the user-displayed string, |