[project @ 2005-03-08 17:19:28 by simonmar]

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

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 96a2f2f..fb66916 100644 (file)
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -93,7 +93,7 @@ type EncodedString = String   -- Encoded form
 pprEncodedFS :: EncodedFS -> SDoc
 pprEncodedFS fs
   = getPprStyle        $ \ sty ->
-    if userStyle sty
+    if userStyle sty || dumpStyle sty
        -- ftext (decodeFS fs) would needlessly pack the string again
        then text (decode (unpackFS fs))
         else ftext fs