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
\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))