Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
4b484275
Commit
4b484275
authored
Mar 29, 2008
by
Ian Lynagh
Browse files
Another debugIsOn use
parent
7163be78
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/basicTypes/Unique.lhs
View file @
4b484275
...
...
@@ -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))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment