CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-16 14:57:13 +03:00
Code Issues Projects Releases Wiki Activity

Fix: Expr.map was missing types in logs

Browse Source
This commit is contained in:
Louis Gesbert 2024-08-06 12:41:30 +02:00
parent b9156bb60e
commit dbfd05155b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/shared_ast/expr.ml
View File

@ -293,6 +293,10 @@ let map
| ELit l -> elit l m
| EApp { f = e1; args; tys } ->
eapp ~f:(f e1) ~args:(List.map f args) ~tys:(List.map typ tys) m
| EAppOp { op = Op.Log (VarDef vd, infos), pos; tys; args } ->
let log_typ = Mark.remove (typ (Mark.add Pos.no_pos vd.log_typ)) in
let op = fop (Op.Log (VarDef { vd with log_typ }, infos), pos) in
eappop ~op ~tys:(List.map typ tys) ~args:(List.map f args) m
| EAppOp { op; tys; args } ->
eappop ~op:(fop op) ~tys:(List.map typ tys) ~args:(List.map f args) m
| EArray args -> earray (List.map f args) m