[project @ 1998-03-12 20:04:47 by sof]

scc printing: Only output duplicated flag in scc label when debugging

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 6992df7..d04e255 100644 (file)
--- 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}