diff options
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/name_to_ast.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/interface/name_to_ast.ml b/contrib/interface/name_to_ast.ml index 0ae3b2d821..ef232d0dca 100644 --- a/contrib/interface/name_to_ast.ml +++ b/contrib/interface/name_to_ast.ml @@ -42,7 +42,7 @@ let convert_env = (* This function is directly inspired by print_impl_args in pretty.ml *) -let impl_args_to_string = function +let impl_args_to_string_by_pos = function [] -> None | [i] -> Some(" position " ^ (string_of_int i) ^ " is implicit.") | l -> Some (" positions " ^ @@ -52,6 +52,9 @@ let impl_args_to_string = function (* This function is directly inspired by implicit_args_id in pretty.ml *) +let impl_args_to_string l = + impl_args_to_string_by_pos (positions_of_implicits l) + let implicit_args_id_to_ast_list id l ast_list = (match impl_args_to_string l with None -> ast_list |