From: simonpj <unknown>
Date: Tue, 23 Nov 1999 11:37:23 +0000 (+0000)
Subject: [project @ 1999-11-23 11:37:23 by simonpj]
X-Git-Tag: Approximately_9120_patches~5514
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e67c3c9bb218251dfaacac2e407492c2b5f4e186;p=ghc-hetmet.git

[project @ 1999-11-23 11:37:23 by simonpj]
Print module names un-encoded in user style
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 38a3609..40c25f5 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -184,7 +184,11 @@ instance Ord Module where
 
 \begin{code}
 pprModule :: Module -> SDoc
-pprModule (Module mod _ _) = pprEncodedFS mod
+pprModule (Module mod _ _) = getPprStyle $ \ sty ->
+			     if userStyle sty then
+				text (moduleNameUserString mod)				
+			     else
+				pprModuleName mod
 \end{code}