Skip to content

Commit e3adba9

Browse files
Use more specific argument names
Co-authored-by: Nathan Rebours <[email protected]>
1 parent dbb5f50 commit e3adba9

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

test/expect/expect_test.ml

+2-2
Original file line numberDiff line numberDiff line change
@@ -163,9 +163,9 @@ let main () =
163163
| Oval_string (s, maxlen, kind) ->
164164
Oval_string (s, (if maxlen < 8 then 8 else maxlen), kind)
165165
(*IF_NOT_AT_LEAST 504 | Oval_tuple tl -> Oval_tuple (List.map ~f:map_tree tl) *)
166-
(*IF_AT_LEAST 504 | Oval_tuple tl -> Oval_tuple (List.map ~f:(fun (l, v) -> (l, map_tree v)) tl) *)
166+
(*IF_AT_LEAST 504 | Oval_tuple tl -> Oval_tuple (List.map ~f:(fun (label, v) -> (label, map_tree v)) tl) *)
167167
(*IF_NOT_AT_LEAST 504 | Oval_array tl -> Oval_array (List.map ~f:map_tree tl) *)
168-
(*IF_AT_LEAST 504 | Oval_array (tl, v) -> Oval_array ((List.map ~f:map_tree tl), v) *)
168+
(*IF_AT_LEAST 504 | Oval_array (tl, mutable_) -> Oval_array ((List.map ~f:map_tree tl), mutable_) *)
169169
| Oval_list tl -> Oval_list (List.map ~f:map_tree tl)
170170
| Oval_record fel ->
171171
Oval_record

0 commit comments

Comments
 (0)