From 605fd82f2909eca910997563b0bbe19db50746d2 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 30 Jan 2002 17:16:04 +0000
Subject: [PATCH] [project @ 2002-01-30 17:16:04 by simonpj] Improved printing

---
 ghc/compiler/coreSyn/PprCore.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 3a27b2b..25d79f4 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -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 <+>
-- 
1.7.10.4