From 19c26e39936644d9c401b31904cedb52349a0efc Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 27 Aug 2004 08:17:07 +0000
Subject: [PATCH] [project @ 2004-08-27 08:17:07 by simonpj] Oops: always
 qualify when printing code

---
 ghc/compiler/basicTypes/Name.lhs |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index adb1082..234180e 100644
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -328,8 +328,12 @@ pprName (Name {n_sort = sort, n_uniq = uniq, n_occ = occ})
       Internal    	 	    -> pprInternal sty uniq occ
 
 pprExternal sty uniq mod occ is_wired
-  | unqualStyle sty mod_name occ = pprOccName occ
   | codeStyle sty        = ppr mod_name <> char '_' <> pprOccName occ
+	-- In code style, always qualify
+	-- ToDo: maybe we could print all wired-in things unqualified
+	-- 	 in code style, to reduce symbol table bloat?
+  | unqualStyle sty mod_name occ = pprOccName occ
+	-- Never qualify built-in syntax otherwise
   | debugStyle sty       = sep [ppr mod_name <> dot <> pprOccName occ,
 				hsep [text "{-" 
 				     , if is_wired then ptext SLIT("(w)") else empty
-- 
1.7.10.4