From: simonpj <unknown>
Date: Mon, 5 Mar 2001 12:46:16 +0000 (+0000)
Subject: [project @ 2001-03-05 12:46:16 by simonpj]
X-Git-Tag: Approximately_9120_patches~2465
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=757f1ebd95bfd38f0124b36386be6ad0f990dce1;p=ghc-hetmet.git

[project @ 2001-03-05 12:46:16 by simonpj]
Print debug uniques consistently in base64
---

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 0e0524e..8286e39 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