tast_{iterator,mapper} were missing locs in jkind annotations

ccasin · ccasin · commit 710e69eb8cd7 · 2023-11-09T13:20:09.000-05:00
diff --git a/ocaml/typing/tast_iterator.ml b/ocaml/typing/tast_iterator.ml
@@ -649,7 +649,7 @@ let value_binding sub {vb_loc; vb_pat; vb_expr; vb_attributes; _} =
 
 let env _sub _ = ()
 
-let jkind_annotation _sub _ = ()
+let jkind_annotation sub l = iter_loc sub l
 
 let default_iterator =
   {
diff --git a/ocaml/typing/tast_mapper.ml b/ocaml/typing/tast_mapper.ml
@@ -914,7 +914,7 @@ let value_binding sub x =
 
 let env _sub x = x
 
-let jkind_annotation _sub l = l
+let jkind_annotation sub l = map_loc sub l
 
 let default =
   {

Original file line number	Diff line number	Diff line change
`@@ -649,7 +649,7 @@ let value_binding sub {vb_loc; vb_pat; vb_expr; vb_attributes; _} =`
`649`	`649`
`650`	`650`	`let env _sub _ = ()`
`651`	`651`
`652`		`-let jkind_annotation _sub _ = ()`
	`652`	`+let jkind_annotation sub l = iter_loc sub l`
`653`	`653`
`654`	`654`	`let default_iterator =`
`655`	`655`	`{`
Original file line number	Diff line number	Diff line change
`@@ -914,7 +914,7 @@ let value_binding sub x =`
`914`	`914`
`915`	`915`	`let env _sub x = x`
`916`	`916`
`917`		`-let jkind_annotation _sub l = l`
	`917`	`+let jkind_annotation sub l = map_loc sub l`
`918`	`918`
`919`	`919`	`let default =`
`920`	`920`	`{`