From 3ba687815a96ac8ba2d76721f1c85ba6a87d9751 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 3 Oct 1997 12:32:01 +0000
Subject: [PATCH] [project @ 1997-10-03 12:32:01 by simonm] omit qualifiers by
default when printing types
---
ghc/compiler/basicTypes/Name.lhs | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 0e4a36124bc0..33e24bfdf584 100644
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -461,14 +461,19 @@ instance Outputable Name where
= hcat [pp_mod_dot, ptext (occNameString n), pp_debug sty name]
where
pp_mod = pprModule (PprForUser 1) m
- pp_mod_dot = case prov of --- Omit home module qualifier
+
+ pp_mod_dot | userStyle sty -- Omit qualifier in user style
+ = empty
+ | otherwise
+ = case prov of -- Omit home module qualifier
LocalDef _ _ -> empty
Imported _ _ hif -> pp_mod <> pp_dot hif
Implicit hif -> pp_mod <> pp_dot hif
other -> pp_mod <> text "."
pp_dot HiFile = text "." -- Vanilla case
- pp_dot HiBootFile = text "!" -- M!t indicates a name imported from a .hi-boot interface
+ pp_dot HiBootFile = text "!" -- M!t indicates a name imported from
+ -- a .hi-boot interface
pp_debug PprDebug (Global uniq m n prov) = hcat [text "{-", pprUnique uniq, char ',',
--
GitLab