diff options
| author | Austin Seipp <austin@well-typed.com> | 2015-05-23 07:26:55 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-05-23 07:26:57 -0500 |
| commit | 4d6c0ee11ff2c439fcd06677d55c57b8644ed7a7 (patch) | |
| tree | 3fe5f946dd3efaf12ad7b5a1451de5348f283d52 /compiler | |
| parent | 7d519dabd2006c9742e82fce02df55704da15482 (diff) | |
| download | haskell-4d6c0ee11ff2c439fcd06677d55c57b8644ed7a7.tar.gz | |
compiler: kill a stray pprTrace in OccName
Left in by c89bd681d34d, and otherwise rather annoying during the build!
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/basicTypes/OccName.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/basicTypes/OccName.hs b/compiler/basicTypes/OccName.hs index 3ea3aa4105..c3f0c9ffcb 100644 --- a/compiler/basicTypes/OccName.hs +++ b/compiler/basicTypes/OccName.hs @@ -853,9 +853,7 @@ tidyOccName env occ@(OccName occ_sp fs) -- 1, add 1, add 2, add 3, etc which -- moves at quadratic speed through a dense patch - Nothing -> (if k>5 then pprTrace "tidyOccName" (ppr k $$ ppr occ $$ ppr new_fs) - else \x -> x) - (new_env, OccName occ_sp new_fs) + Nothing -> (new_env, OccName occ_sp new_fs) where new_fs = mkFastString (base ++ show n) new_env = addToUFM (addToUFM env new_fs 1) base1 (n+1) |