[project @ 2000-05-23 11:35:36 by simonpj]

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

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index cbec03c..2650e2e 100644 (file)
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -183,9 +183,7 @@ instance Ord Module where
 \begin{code}
 pprModule :: Module -> SDoc
 pprModule (Module mod p) = getPprStyle $ \ sty ->
-                          if userStyle sty then
-                               text (moduleNameUserString mod)                         
-                          else if debugStyle sty then
+                          if debugStyle sty then
                                -- Print the package too
                                text (show p) <> dot <> pprModuleName mod
                           else