From 1a088058dd02d154373ce751f5a0748b409c3788 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 12 Mar 1998 20:04:47 +0000
Subject: [PATCH] [project @ 1998-03-12 20:04:47 by sof] scc printing: Only
 output duplicated flag in scc label when debugging

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

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 6992df7..d04e255 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -424,7 +424,7 @@ uppCostCentre print_as_string cc
 	do_id id = getOccString id
 
     ---------------
-    do_dupd sty ADupdCC str = if (friendly_sty sty) then str ++ "/DUPD" else str
+    do_dupd sty ADupdCC str = if (debugStyle sty) then str ++ "/DUPD" else str
     do_dupd _   _       str = str
 \end{code}
 
-- 
1.7.10.4