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

Use showPpr in a few more places

parent d2d3b719
......@@ -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,
......
......@@ -133,7 +133,7 @@ stuff before and after core passes, and do Core Lint when necessary.
\begin{code}
showPass :: DynFlags -> CoreToDo -> IO ()
showPass dflags pass = Err.showPass dflags (showSDoc (ppr pass))
showPass dflags pass = Err.showPass dflags (showPpr dflags pass)
endPass :: DynFlags -> CoreToDo -> CoreProgram -> [CoreRule] -> IO ()
endPass dflags pass binds rules
......@@ -181,7 +181,7 @@ lintPassResult :: DynFlags -> CoreToDo -> CoreProgram -> IO ()
lintPassResult dflags pass binds
= when (dopt Opt_DoCoreLinting dflags) $
do { let (warns, errs) = lintCoreBindings binds
; Err.showPass dflags ("Core Linted result of " ++ showSDoc (ppr pass))
; Err.showPass dflags ("Core Linted result of " ++ showPpr dflags pass)
; displayLintResults dflags pass warns errs binds }
displayLintResults :: DynFlags -> CoreToDo
......
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