diff options
| -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 |