[gitfix] rebase fix

This commit is contained in:
Arnaud DABY-SEESARAM 2022-12-13 15:04:53 +01:00
parent bb017afe39
commit 69b963c305
3 changed files with 0 additions and 5 deletions

View File

@ -169,7 +169,6 @@ let pp_expression node_name =
| ETuple _ ->
Format.fprintf fmt "%a"
pp_expression_list expression;
| EAuto _ -> failwith "todo"
in
pp_expression_aux

View File

@ -78,7 +78,6 @@ let pre2vars =
| EApp (ty, node, arg) ->
let arg = pre_push arg in
EApp (ty, node, arg)
| EAuto _ -> failwith "toto"
in
let rec aux (expr: t_expression) =
match expr with
@ -113,7 +112,6 @@ let pre2vars =
| EApp (ty, node, arg) ->
let arg = aux arg in
EApp (ty, node, arg)
| EAuto _ -> failwith "todo"
in
expression_pass (Utils.somify aux)

View File

@ -32,7 +32,5 @@ let type_exp : t_expression -> full_ty = function
| EConst (full_ty , _) -> full_ty
| ETuple (full_ty , _) -> full_ty
| EApp (full_ty , _ , _) -> full_ty
| EAuto _ -> raise (MyParsingError ("bloup", Parsing.(symbol_start_pos(),
symbol_end_pos())))
let somify f = fun e -> Some (f e)