Streaming opam file codec for OCaml
loc,json,csv,sexp,toml,xml,opam,rego,sbom: rename Meta.textloc to Meta.loc
Follow up to the loc/json reorg: the [textloc] field of [Meta] is
renamed to [loc] across every text-codec consumer. Pure mechanical
rename, no behaviour change.
+2
-2
+2
-2
test/test_parser.ml
+2
-2
test/test_parser.ml
···
249
249
let _ = parse src in
250
250
Alcotest.fail "expected error"
251
251
with Opam.Error { meta; _ } ->
252
-
let loc = Loc.Meta.textloc meta in
252
+
let loc = Loc.Meta.loc meta in
253
253
let line = Loc.first_line_num loc in
254
254
let byte = Loc.first_byte loc in
255
255
Alcotest.(check int) "error line" 2 line;
···
267
267
let _ = parse src in
268
268
Alcotest.fail "expected error"
269
269
with Opam.Error { meta; _ } ->
270
-
let loc = Loc.Meta.textloc meta in
270
+
let loc = Loc.Meta.loc meta in
271
271
let byte = Loc.first_byte loc in
272
272
Alcotest.(check bool)
273
273
(Fmt.str "error points at '$' (byte %d)" byte)