|
|
@@ -679,7 +679,7 @@ let type_field ctx e i p get =
|
|
|
if ctx.untyped then
|
|
|
AccExpr (mk (TField (e,i)) (mk_mono()) p)
|
|
|
else
|
|
|
- error (s_type (print_context()) e.etype ^ " have no field " ^ i) p
|
|
|
+ error (s_type (print_context()) e.etype ^ " has no field " ^ i) p
|
|
|
in
|
|
|
match follow e.etype with
|
|
|
| TInst (c,params) ->
|
Nicolas Cannasse