From e67c3c9bb218251dfaacac2e407492c2b5f4e186 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 23 Nov 1999 11:37:23 +0000
Subject: [PATCH] [project @ 1999-11-23 11:37:23 by simonpj] Print module
 names un-encoded in user style

---
 ghc/compiler/basicTypes/Module.lhs |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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}
 
 
-- 
1.7.10.4