projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-03-27 13:23:49 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
typecheck
/
TcSimplify.lhs
diff --git
a/ghc/compiler/typecheck/TcSimplify.lhs
b/ghc/compiler/typecheck/TcSimplify.lhs
index
b05225f
..
f1467ba
100644
(file)
--- a/
ghc/compiler/typecheck/TcSimplify.lhs
+++ b/
ghc/compiler/typecheck/TcSimplify.lhs
@@
-1223,8
+1223,7
@@
addAmbigErrs ambig_tv_fn dicts = mapNF_Tc (addAmbigErr ambig_tv_fn) dicts
addAmbigErr ambig_tv_fn dict
= addInstErrTcM (instLoc dict)
(tidy_env,
addAmbigErr ambig_tv_fn dict
= addInstErrTcM (instLoc dict)
(tidy_env,
- sep [text "Ambiguous type variable(s)" <+>
- hsep (punctuate comma (map (quotes . ppr) ambig_tvs)),
+ sep [text "Ambiguous type variable(s)" <+> pprQuotedList ambig_tvs,
nest 4 (text "in the constraint" <+> quotes (pprInst tidy_dict))])
where
ambig_tvs = varSetElems (ambig_tv_fn tidy_dict)
nest 4 (text "in the constraint" <+> quotes (pprInst tidy_dict))])
where
ambig_tvs = varSetElems (ambig_tv_fn tidy_dict)