Commit 23cb37fa authored by simonpj's avatar simonpj
Browse files

[project @ 2000-07-07 12:12:48 by simonpj]

Fix duplicate class assertion error msg
parent 6151c960
......@@ -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),
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment