From 757f1ebd95bfd38f0124b36386be6ad0f990dce1 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 5 Mar 2001 12:46:16 +0000
Subject: [PATCH] [project @ 2001-03-05 12:46:16 by simonpj] Print debug
 uniques consistently in base64

---
 ghc/compiler/basicTypes/Name.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4