diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-12 10:44:31 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-12 10:55:09 +0100 |
| commit | 148b27b679d351dea967638f27d09325cc74422b (patch) | |
| tree | c3d6942723db7413ea14cc2576e8ed74fa24c040 | |
| parent | e8dbeed6f95f94ed7b6694a268e5227049546fed (diff) | |
| download | haskell-148b27b679d351dea967638f27d09325cc74422b.tar.gz | |
Fix instance signature error message (#6001)
Display class method signature instead of user-provided signature.
| -rw-r--r-- | compiler/typecheck/TcInstDcls.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcInstDcls.lhs b/compiler/typecheck/TcInstDcls.lhs index 64b839c83f..b7c953d2f7 100644 --- a/compiler/typecheck/TcInstDcls.lhs +++ b/compiler/typecheck/TcInstDcls.lhs @@ -836,7 +836,7 @@ mkMethIds sig_fn clas tyvars dfun_ev_vars inst_tys sel_id ; inst_sigs <- xoptM Opt_InstanceSigs ; if inst_sigs then checkTc (sig_ty `eqType` local_meth_ty) - (badInstSigErr sel_name sig_ty) + (badInstSigErr sel_name local_meth_ty) else addErrTc (misplacedInstSig sel_name hs_ty) ; return sig_ty } |