From 23cb37faef9cbb62f2b388520658fdda71dc5e7a Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 7 Jul 2000 12:12:48 +0000
Subject: [PATCH] [project @ 2000-07-07 12:12:48 by simonpj] Fix duplicate
class assertion error msg
---
ghc/compiler/rename/RnSource.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 60615a9769a2..ddacf62ee28d 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),
--
GitLab