diff options
| author | simonpj@microsoft.com <unknown> | 2008-08-12 14:40:28 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-08-12 14:40:28 +0000 |
| commit | ea9a5be67418ab76c4fa33736a3335b517c9e7f9 (patch) | |
| tree | 552f7e854a3f2ce55a808fa9b315dd80cbd4a730 /compiler | |
| parent | 2378b2325df64a5ccc5b2e038ac3dbb848dea5f7 (diff) | |
| download | haskell-ea9a5be67418ab76c4fa33736a3335b517c9e7f9.tar.gz | |
Suppress uniques when (and only when) we have -dsuppress-uniques
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/basicTypes/Unique.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/basicTypes/Unique.lhs b/compiler/basicTypes/Unique.lhs index d8f244e7ea..202ae9e613 100644 --- a/compiler/basicTypes/Unique.lhs +++ b/compiler/basicTypes/Unique.lhs @@ -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 |