[project @ 2001-03-05 12:46:16 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Name.lhs

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