Commit ea9a5be6 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Suppress uniques when (and only when) we have -dsuppress-uniques

parent 2378b232
......@@ -61,7 +61,6 @@ import FastTypes
import FastString
import Outputable
import StaticFlags
import Util
#if defined(__GLASGOW_HASKELL__)
--just for implementing a fast [0,61) -> Char function
......@@ -212,7 +211,7 @@ We do sometimes make strings with @Uniques@ in them:
\begin{code}
pprUnique :: Unique -> SDoc
pprUnique uniq
| debugIsOn || opt_SuppressUniques
| opt_SuppressUniques
= empty -- Used exclusively to suppress uniques so you
| otherwise -- can compare output easily
= case unpkUnique uniq of
......
Markdown is supported
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