From: simonpj <unknown>
Date: Fri, 23 Mar 2001 14:52:17 +0000 (+0000)
Subject: [project @ 2001-03-23 14:52:17 by simonpj]
X-Git-Tag: Approximately_9120_patches~2331
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b506bbfb8480556d40fce2f488daf85181344d96;p=ghc-hetmet.git

[project @ 2001-03-23 14:52:17 by simonpj]
Improve printing slightly
---

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index a4c441e..7667b45 100644
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -690,11 +690,11 @@ hasBetterProv _					  _			       = False
 pprNameProvenance :: Name -> Provenance -> SDoc
 pprNameProvenance name LocalDef   	 = ptext SLIT("defined at") <+> ppr (nameSrcLoc name)
 pprNameProvenance name (NonLocalDef why) = sep [ppr_reason why, 
-					        nest 2 (parens (ppr_defn (nameSrcLoc name)))]
+					        nest 2 (ppr_defn (nameSrcLoc name))]
 
 ppr_reason ImplicitImport	  = ptext SLIT("implicitly imported")
 ppr_reason (UserImport mod loc _) = ptext SLIT("imported from") <+> ppr mod <+> ptext SLIT("at") <+> ppr loc
 
-ppr_defn loc | isGoodSrcLoc loc = ptext SLIT("at") <+> ppr loc
+ppr_defn loc | isGoodSrcLoc loc = parens (ptext SLIT("at") <+> ppr loc)
 	     | otherwise	= empty
 \end{code}