diff options
Diffstat (limited to 'compiler/GHC/Unit/Types.hs')
| -rw-r--r-- | compiler/GHC/Unit/Types.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/compiler/GHC/Unit/Types.hs b/compiler/GHC/Unit/Types.hs index f71ce9c02e..f87e41a305 100644 --- a/compiler/GHC/Unit/Types.hs +++ b/compiler/GHC/Unit/Types.hs @@ -21,6 +21,7 @@ module GHC.Unit.Types , mkModule , moduleUnitId , pprModule + , pprCodeModule , pprInstantiatedModule , moduleFreeHoles @@ -203,7 +204,7 @@ pprModule mod@(Module p n) = getPprStyle doc (if p == mainUnit then empty -- never qualify the main package in code else ztext (zEncodeFS (unitFS p)) <> char '_') - <> pprModuleName n + <> pprCodeModuleName n | qualModule sty mod = case p of HoleUnit -> angleBrackets (pprModuleName n) @@ -211,6 +212,12 @@ pprModule mod@(Module p n) = getPprStyle doc | otherwise = pprModuleName n +pprCodeModule :: Module -> SDoc +pprCodeModule mod@(Module p n) = + (if p == mainUnit + then empty -- never qualify the main package in code + else ztext (zEncodeFS (unitFS p)) <> char '_') + <> pprCodeModuleName n pprInstantiatedModule :: InstantiatedModule -> SDoc pprInstantiatedModule (Module uid m) = |