From: simonpj <unknown>
Date: Fri, 7 Jul 2000 12:12:48 +0000 (+0000)
Subject: [project @ 2000-07-07 12:12:48 by simonpj]
X-Git-Tag: Approximately_9120_patches~4060
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=23cb37faef9cbb62f2b388520658fdda71dc5e7a;p=ghc-hetmet.git

[project @ 2000-07-07 12:12:48 by simonpj]
Fix duplicate class assertion error msg
---

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 60615a9..ddacf62 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -11,7 +11,7 @@ module RnSource ( rnDecl, rnSourceDecls, rnHsType, rnHsSigType ) where
 import RnExpr
 import HsSyn
 import HsPragmas
-import HsTypes		( getTyVarName )
+import HsTypes		( getTyVarName, pprHsContext )
 import RdrName		( RdrName, isRdrDataCon, rdrNameOcc, isRdrTyVar, mkRdrNameWkr )
 import RdrHsSyn		( RdrNameContext, RdrNameHsType, RdrNameConDecl,
 			  extractRuleBndrsTyVars, extractHsTyRdrTyVars,
@@ -977,7 +977,7 @@ dupClassAssertWarn ctxt (assertion : dups)
   = sep [hsep [ptext SLIT("Duplicate class assertion"), 
 	       quotes (ppr assertion),
 	       ptext SLIT("in the context:")],
-	 nest 4 (ppr ctxt <+> ptext SLIT("..."))]
+	 nest 4 (pprHsContext ctxt <+> ptext SLIT("..."))]
 
 naughtyCCallContextErr (HsPClass clas _)
   = sep [ptext SLIT("Can't use class") <+> quotes (ppr clas),