diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:01:26 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:01:26 +0000 |
| commit | 4b484275d83c4956df2ff1a471313ccf14d03cb3 (patch) | |
| tree | 668ef109990ca202a4671ffc92bb20da4eab5403 | |
| parent | 7163be78dfc760f2b288c78260cb2929b6253aa1 (diff) | |
| download | haskell-4b484275d83c4956df2ff1a471313ccf14d03cb3.tar.gz | |
Another debugIsOn use
| -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)) |