diff options
| author | simonpj <unknown> | 1999-11-23 11:37:23 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-11-23 11:37:23 +0000 |
| commit | e67c3c9bb218251dfaacac2e407492c2b5f4e186 (patch) | |
| tree | 31410aeb87a0dfd6f827ec8dff771860f6d60e95 /ghc/compiler | |
| parent | dea744738a4b1f70d893275b4c71767fde2c362e (diff) | |
| download | haskell-e67c3c9bb218251dfaacac2e407492c2b5f4e186.tar.gz | |
[project @ 1999-11-23 11:37:23 by simonpj]
Print module names un-encoded in user style
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/basicTypes/Module.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs index 38a36091cb..40c25f5778 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} |