diff options
| author | simonpj <unknown> | 2001-03-05 12:46:16 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2001-03-05 12:46:16 +0000 |
| commit | 757f1ebd95bfd38f0124b36386be6ad0f990dce1 (patch) | |
| tree | 56862c54794f647963bdd7d01a50eebb9d86644f | |
| parent | e6dff21dfefdae928aa1577a294595865f8c22f6 (diff) | |
| download | haskell-757f1ebd95bfd38f0124b36386be6ad0f990dce1.tar.gz | |
[project @ 2001-03-05 12:46:16 by simonpj]
Print debug uniques consistently in base64
| -rw-r--r-- | ghc/compiler/basicTypes/Name.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs index 0e0524e29f..8286e39902 100644 --- a/ghc/compiler/basicTypes/Name.lhs +++ b/ghc/compiler/basicTypes/Name.lhs @@ -350,7 +350,7 @@ pprGlobal sty name uniq mod occ pprLocal sty uniq occ | codeStyle sty = pprUnique uniq | debugStyle sty = pprOccName occ <> - text "{-" <> pprUnique10 uniq <> text "-}" + text "{-" <> pprUnique uniq <> text "-}" | otherwise = pprOccName occ -- User and Iface styles -- Like Local, except that we only omit the unique in Iface style |