diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 15:51:50 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 15:51:50 +0100 |
| commit | af9f0170fa3b20cdf0a4d1843bbe1f03743ed3aa (patch) | |
| tree | 947bbb19f6c53998ec424913a7e5c2fa39933521 /compiler/codeGen/CgProf.hs | |
| parent | d2d3b7190ee013b05286fb00d9ac1e6e1c0c70de (diff) | |
| download | haskell-af9f0170fa3b20cdf0a4d1843bbe1f03743ed3aa.tar.gz | |
Use showPpr in a few more places
Diffstat (limited to 'compiler/codeGen/CgProf.hs')
| -rw-r--r-- | compiler/codeGen/CgProf.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/CgProf.hs b/compiler/codeGen/CgProf.hs index 296dd62818..1a5f916dbe 100644 --- a/compiler/codeGen/CgProf.hs +++ b/compiler/codeGen/CgProf.hs @@ -170,8 +170,9 @@ emitCostCentreDecl cc = do -- All cost centres will be in the main package, since we -- don't normally use -auto-all or add SCCs to other packages. -- Hence don't emit the package name in the module here. + ; dflags <- getDynFlags ; loc <- newByteStringCLit $ bytesFS $ mkFastString $ - showSDoc (ppr (costCentreSrcSpan cc)) + showPpr dflags (costCentreSrcSpan cc) -- XXX going via FastString to get UTF-8 encoding is silly ; let lits = [ zero, -- StgInt ccID, |