From 79015e2d599287d448662e3436f77026c4ffb232 Mon Sep 17 00:00:00 2001 From: Patrick Walton Date: Fri, 5 Nov 2010 17:30:53 -0700 Subject: rustboot: If something that wasn't a type was found where a type was expected, report where the error was --- src/boot/me/resolve.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/boot/me/resolve.ml b/src/boot/me/resolve.ml index 14d9cc53..b2f29d27 100644 --- a/src/boot/me/resolve.ml +++ b/src/boot/me/resolve.ml @@ -306,7 +306,7 @@ let rec lookup_type_by_name | Some (DEFN_ty_param (_, x)) -> (Ast.TY_param x, [||]) | _ -> - err None "Found non-type binding for %a" + err loc "Found non-type binding for %a" Ast.sprintf_name name in let args = -- cgit v1.2.3