diff options
Diffstat (limited to 'compiler/basicTypes/VarEnv.hs')
| -rw-r--r-- | compiler/basicTypes/VarEnv.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/basicTypes/VarEnv.hs b/compiler/basicTypes/VarEnv.hs index 64357d77fa..3177abb814 100644 --- a/compiler/basicTypes/VarEnv.hs +++ b/compiler/basicTypes/VarEnv.hs @@ -82,7 +82,6 @@ import Unique import Util import Maybes import Outputable -import StaticFlags {- ************************************************************************ @@ -180,13 +179,14 @@ uniqAway' (InScope set n) var orig_unique = getUnique var try k | debugIsOn && (k > 1000) - = pprPanic "uniqAway loop:" (ppr k <+> text "tries" <+> ppr var <+> int n) + = pprPanic "uniqAway loop:" msg | uniq `elemVarSetByKey` set = try (k + 1) - | debugIsOn && opt_PprStyle_Debug && (k > 3) - = pprTrace "uniqAway:" (ppr k <+> text "tries" <+> ppr var <+> int n) + | k > 3 + = pprTraceDebug "uniqAway:" msg setVarUnique var uniq | otherwise = setVarUnique var uniq where + msg = ppr k <+> text "tries" <+> ppr var <+> int n uniq = deriveUnique orig_unique (n * k) {- |