Commit 4b484275 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Another debugIsOn use

parent 7163be78
......@@ -54,9 +54,8 @@ import BasicTypes
import FastTypes
import FastString
import Outputable
#ifdef DEBUG
import StaticFlags ( opt_SuppressUniques )
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:
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
= case unpkUnique uniq of
(tag, u) -> finish_ppr tag u (text (iToBase62 u))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment