diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-07-26 21:43:06 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-07-29 17:55:08 +0200 |
| commit | 9de205be967c365976bc440722f969f0dfe1db54 (patch) | |
| tree | bb384a2c47b2bc135f7fd89eec6865de1312dae9 /compiler/GHC/Utils/Outputable.hs | |
| parent | 079d294f41b69864c46caf22adc3ba4248e6c649 (diff) | |
| download | haskell-wip/cleanup-printing.tar.gz | |
Always use code style in pprCLabelwip/cleanup-printing
Diffstat (limited to 'compiler/GHC/Utils/Outputable.hs')
| -rw-r--r-- | compiler/GHC/Utils/Outputable.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/GHC/Utils/Outputable.hs b/compiler/GHC/Utils/Outputable.hs index 6ff57e5775..96ddbe592a 100644 --- a/compiler/GHC/Utils/Outputable.hs +++ b/compiler/GHC/Utils/Outputable.hs @@ -79,6 +79,7 @@ module GHC.Utils.Outputable ( pprFastFilePath, pprFilePathString, pprModuleName, + pprCodeModuleName, -- * Controlling the style in which output is printed BindingSite(..), @@ -1051,6 +1052,8 @@ pprModuleName (ModuleName nm) = then ztext (zEncodeFS nm) else ftext nm +pprCodeModuleName :: ModuleName -> SDoc +pprCodeModuleName (ModuleName nm) = ztext (zEncodeFS nm) ----------------------------------------------------------------------- -- The @OutputableP@ class ----------------------------------------------------------------------- |