From: simonmar <unknown>
Date: Tue, 8 Mar 2005 17:19:28 +0000 (+0000)
Subject: [project @ 2005-03-08 17:19:28 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~942
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6432c1a94bd9f08615fbebbc3d4a7e0c49391b6a;p=ghc-hetmet.git

[project @ 2005-03-08 17:19:28 by simonmar]
decode OccNames in dumpStyle too
---

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 96a2f2f..fb66916 100644
--- 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