Commit 605fd82f authored by simonpj's avatar simonpj
Browse files

[project @ 2002-01-30 17:16:04 by simonpj]

Improved printing
parent 913ed135
......@@ -386,7 +386,7 @@ pprIdCoreRule (id,rule) = pprCoreRule (ppr id) rule
pprCoreRule :: SDoc -> CoreRule -> SDoc
pprCoreRule pp_fn (BuiltinRule name _)
= ifPprDebug (ptext SLIT("Built in rule") <+> doubleQuotes (ptext name))
= ifPprDebug (ptext SLIT("Built in rule for") <+> pp_fn <> colon <+> doubleQuotes (ptext name))
pprCoreRule pp_fn (Rule name act tpl_vars tpl_args rhs)
= doubleQuotes (ptext name) <+> ppr act <+>
......
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