From b506bbfb8480556d40fce2f488daf85181344d96 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 23 Mar 2001 14:52:17 +0000
Subject: [PATCH] [project @ 2001-03-23 14:52:17 by simonpj] Improve printing
 slightly

---
 ghc/compiler/main/HscTypes.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}
-- 
1.7.10.4