CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

Fill in lambda types when doing type inference

Browse Source
This commit is contained in:
Louis Gesbert 2022-11-07 15:02:44 +01:00
parent 35e606f155
commit 8d7f2152a6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/shared_ast/typing.ml
View File

@ -522,7 +522,7 @@ and typecheck_expr_top_down :
in
let body' = typecheck_expr_top_down ctx env t_ret body in
let binder' = Bindlib.bind_mvar xs' (Expr.Box.lift body') in
Expr.eabs binder' t_args mark
Expr.eabs binder' (List.map typ_to_ast tau_args) mark
| A.EApp (e1, args) ->
let t_args = List.map (fun _ -> unionfind (TAny (Any.fresh ()))) args in
let t_func =