diff options
| -rw-r--r-- | compiler/basicTypes/Unique.lhs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/compiler/basicTypes/Unique.lhs b/compiler/basicTypes/Unique.lhs index 51907028e5..7a38d4ef1a 100644 --- a/compiler/basicTypes/Unique.lhs +++ b/compiler/basicTypes/Unique.lhs @@ -54,9 +54,8 @@ import BasicTypes import FastTypes import FastString import Outputable -#ifdef DEBUG -import StaticFlags ( opt_SuppressUniques ) -#endif +import StaticFlags +import Util #if defined(__GLASGOW_HASKELL__) --just for implementing a fast [0,61) -> Char function @@ -202,11 +201,9 @@ We do sometimes make strings with @Uniques@ in them: \begin{code} pprUnique :: Unique -> SDoc pprUnique uniq -#ifdef DEBUG - | opt_SuppressUniques + | debugIsOn && opt_SuppressUniques = empty -- Used exclusively to suppress uniques so you | otherwise -- can compare output easily -#endif = case unpkUnique uniq of (tag, u) -> finish_ppr tag u (text (iToBase62 u)) |