From: simonm <unknown>
Date: Fri, 3 Oct 1997 12:32:01 +0000 (+0000)
Subject: [project @ 1997-10-03 12:32:01 by simonm]
X-Git-Tag: Approx_2487_patches~1447
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3ba687815a96ac8ba2d76721f1c85ba6a87d9751;p=ghc-hetmet.git

[project @ 1997-10-03 12:32:01 by simonm]
omit qualifiers by default when printing types
---

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 0e4a361..33e24bf 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 ',',