Commit 1713673d authored by simonm's avatar simonm

[project @ 1999-03-08 10:40:46 by simonm]

s/show/showSDoc/

Discovered-by: removing instance Show (->) :-)
parent 3f767306
......@@ -127,7 +127,7 @@ stg2stg stg_todos module_name us binds
end_pass us2 what ccs binds2
= -- report verbosely, if required
(if do_verbose_stg2stg then
hPutStr stderr (show
hPutStr stderr (showSDoc
(text ("*** "++what++":") $$ vcat (map ppr binds2)
))
else return ()) >>
......
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