Commit 5463bfd3 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Adjust error message slightly

parent 5cc715b2
...@@ -1610,10 +1610,10 @@ misMatchMsg env0 (ty_act, ty_exp) ...@@ -1610,10 +1610,10 @@ misMatchMsg env0 (ty_act, ty_exp)
open_tcs = [tc | TyConApp tc _ <- [ty_act, ty_exp] open_tcs = [tc | TyConApp tc _ <- [ty_act, ty_exp]
, isOpenTyCon tc ] , isOpenTyCon tc ]
pp_open_tc tc = ptext (sLit "NB:") <+> quotes (ppr tc) pp_open_tc tc = ptext (sLit "NB:") <+> quotes (ppr tc)
<+> pp_inj <+> ptext (sLit "type function") <+> ptext (sLit "is a type function") <> pp_inj
where where
pp_inj | isInjectiveTyCon tc = ptext (sLit "is an (injective)") pp_inj | isInjectiveTyCon tc = empty
| otherwise = ptext (sLit "is a (non-injective)") | otherwise = ptext (sLit (", and may not be injective"))
ppr_ty :: TidyEnv -> TcType -> (TidyEnv, SDoc, SDoc) ppr_ty :: TidyEnv -> TcType -> (TidyEnv, SDoc, SDoc)
ppr_ty env ty ppr_ty env ty
...@@ -1639,7 +1639,7 @@ It's very confusing to get a message like ...@@ -1639,7 +1639,7 @@ It's very confusing to get a message like
Couldn't match expected type `Depend s' Couldn't match expected type `Depend s'
against inferred type `Depend s1' against inferred type `Depend s1'
so pp_open_tc adds: so pp_open_tc adds:
NB: `Depend' is a (non-injective) type function NB: `Depend' is type function, and hence may not be injective
Currently we add this independently for each argument, so we also get Currently we add this independently for each argument, so we also get
Couldn't match expected type `a' Couldn't match expected type `a'
......
Markdown is supported
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